-
If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.
Using VBA moving files from one folder to another
- Thread starter gjsala
- Start date
-
- Tags
- move files vba
Try the following macro, which needs to be placed in a regular module...
Code:
Option Explicit
Sub MoveFiles()
Dim strFolderA As String
Dim strFolderB As String
Dim strFile As String
Dim Cnt As Long
'//Change the path to the source folder, accordingly
strFolderA = "C:\Path\FolderA\"
'//Change the path to the destination folder, accordingly
strFolderB = "C:\Path\FolderB\"
If Right(strFolderA, 1) <> "\" Then strFolderA = strFolderA & "\"
If Right(strFolderB, 1) <> "\" Then strFolderB = strFolderB & "\"
'//To filter for .xlsx files, change "*.*" to "*.xlsx"
strFile = Dir(strFolderA & "*.*")
Do While Len(strFile) > 0
If Date - Int(FileDateTime(strFolderA & strFile)) > 2 Then
Cnt = Cnt + 1
Name strFolderA & strFile As strFolderB & strFile
End If
strFile = Dir
Loop
MsgBox Cnt & " file(s) have been transfered to " & strFolderB, vbInformation
End Sub
Upvote
0
Actually, the macro selects files where the difference between today's date (without the time) and the file's date (without the time) is greater than 2 days. If you want to select files where you'd like to take the actual time of day into consideration, replace...
with
Code:
If Date - Int(FileDateTime(strFolderA & strFile)) > 2 Thenwith
Code:
If (Date + Time) - FileDateTime(strFolderA & strFile) > 2 Then
Upvote
0
Hi,
How would you change this code so it copies a file from one location to another & re-names it ?
File.xls from C:\test to 'File_.xls' at C:\Done
Please ?
Excel noob here - ta
Upvote
0
Similar threads
- Solved
