We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
COURSE of the MONTH
12 days, 11 hours left to enrollBecome a Premium Member and unlock a new, free course in leading technologies each month.
Solved
file moving automation
Posted on 2011-03-08
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
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
4
2-
2
8 Comments
Active today
I think this VBS script should do what you want. Save as a VBS and run, adjust paths if needed.
' Define location of files to move
sBaseFolder = "\\server1\Transcription\Completed Voice Files\*.*"
' Build location to move files to, including dated folder (YYYYMMDD)
strDay = Right("0" & Day(Now), 2)
strMonth = Right("0" & Month(Now), 2)
strYear = Year(Now)
sDestFolder = "\\server1\transctiption\archived voice files\" & strYear & StrMonth & strDay & "\"
' Make sure that dated folder exists, and move files to it
Set oFSO = CreateObject("Scripting.FileSystemObject")
If Not objFSO.FolderExists(strDestFolder) Then objFSO.CreateFolder(strDestFolder)
oFSO.MoveFile strBaseFolder, strDestFolder
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).
Featured Post
Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.
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.
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
Script to copy or move mouse-selected collection of files plus targets referenced by shortcuts (.lnk)
The purpose of this article is to help illuminate the real challenges and options available (where they may exist) for utilizing simple scriptin…
When you see single cell contains number and text, and you have to get any date out of it seems like cracking our heads.
Add bar graphs to Access queries using Unicode block characters. Graphs appear on every record in the color you want. Give life to numbers.
Hopes this gives you ideas on visualizing your data in new ways ~
Create a calculated field in a query:
…
How to fix incompatible JVM issue while installing Eclipse
While installing Eclipse in windows, got one error like above and unable to proceed with the installation.
This video describes how to successfully install Eclipse.
How to solve incompa…
Suggested Courses
Course of the Month12 days, 11 hours left to enroll
777 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.