Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
file moving automation
I have an issue where everyday i have to move files from one folder to another with that days date ex
i move the files from \\server1\Transcription\Co
to the following \\server1\transctiption\ar
i am looking for a way to automate this process and do not know where to start
please help
i move the files from \\server1\Transcription\Co
to the following \\server1\transctiption\ar
i am looking for a way to automate this process and do not know where to start
please help
Asked:
4
2-
2
1 Solution
This should do it:
The SortableDate functions generates a date in the YYYY-MM-DD format so it sorts well in explorer.
Dim strSource, strDest, objFSO, objFile
strSource = "\\server1\Transcription\Completed Voice Files"
strDest = "\\server1\transctiption\archived voice files\" & SortableDate() & "\"
Set objFSO = CreateObject("Scripting.FileSystemObject")
WScript.Echo "Destination folder = " & strDest
For Each objFile In objFSO.GetFolder(strSource).Files
WScript.Echo " Moving file " & objFile.Name
objFSO.MoveFile objFile.Path, strDest & objFile.Name
Next
Function SortableDate
Dim strTemp
'Generate a sortable date: YYYY-MM-DD
strTemp = Year(Now)
If Len(Month(Now)) = 1 Then
strTemp = strTemp & "-0" & Month(Now)
Else
strTemp = strTemp & "-" & Month(Now)
End If
If Len(Day(Now)) = 1 Then
strTemp = strTemp & "-0" & Day(Now)
Else
strTemp = strTemp & "-" & Day(Now)
End If
SortableDate = strTemp
End Function
The SortableDate functions generates a date in the YYYY-MM-DD format so it sorts well in explorer.
Missed a line as well <embarrased>
Dim strSource, strDest, objFSO, objFile
strSource = "\\server1\Transcription\Completed Voice Files"
strDest = "\\server1\transctiption\archived voice files\" & SortableDate() & "\"
Set objFSO = CreateObject("Scripting.FileSystemObject")
WScript.Echo "Destination folder = " & strDest
If Not objFSO.FolderExists(strDest) Then objFSO.CreateFolder(strDest)
For Each objFile In objFSO.GetFolder(strSource).Files
WScript.Echo " Moving file " & objFile.Name
objFSO.MoveFile objFile.Path, strDest & objFile.Name
Next
Function SortableDate
Dim strTemp
'Generate a sortable date: YYYY-MM-DD
strTemp = Year(Now)
If Len(Month(Now)) = 1 Then
strTemp = strTemp & "-0" & Month(Now)
Else
strTemp = strTemp & "-" & Month(Now)
End If
If Len(Day(Now)) = 1 Then
strTemp = strTemp & "-0" & Day(Now)
Else
strTemp = strTemp & "-" & Day(Now)
End If
SortableDate = strTemp
End Function
Russ, great script works great, but it makes me acknowledge each file that is being moved and the source and destination folders, can that be changed?
Ah, you're running it with Wscript (graphical, double-clicking the file). As a fully paid up geek my scripts are all written to use CScript on the command line, and I like to see lots of output - makes me feel important or something :)
If you want to be able to double-click it then remove the Wcript.echo lines (lines 8 and 11 in the last example).
If you want to be able to double-click it then remove the Wcript.echo lines (lines 8 and 11 in the last example).
Question has a verified solution.
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Join & Write a Comment Already a member? Login.
Featured Post
ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.
One of a set of tools we're offering as a way to say thank you for being a part of the community.
Tackle projects and never again get stuck behind a technical roadblock.
Join Now
Open in new window
~bp