JimiH
07-07-2011, 03:14 AM
Hello
I have a list of files that I wish to move from one folder to another. Now the problem is the list doesn't contain the file extension and there could be multiple different extensions.
I have this code that will read the first cell and add the ".txt" extension then move the file. But ideally I want the code to search the folder ,find the first six digits match the cell then add the extension of the file it found be it ".tif" ,".xls" etc etc
Sub move_files_Adept()
Dim c As Object, x, i As Long, n As Long
Set c = CreateObject("Scripting.FileSystemObject")
oldpath = "C:\testfilesFROM\": newpath = "C:\testfilesTO\"
x = Range([a2], [a2].End(xlDown))
For i = 1 To UBound(x)
c.movefile oldpath & x(i, 1) & ".txt", newpath & x(i, 1) & ".txt"
n = n + 1
Next: MsgBox n & "files has been successfully moved", vbInformation: End Sub
Any ideas?
thanks
Geoff
I have a list of files that I wish to move from one folder to another. Now the problem is the list doesn't contain the file extension and there could be multiple different extensions.
I have this code that will read the first cell and add the ".txt" extension then move the file. But ideally I want the code to search the folder ,find the first six digits match the cell then add the extension of the file it found be it ".tif" ,".xls" etc etc
Sub move_files_Adept()
Dim c As Object, x, i As Long, n As Long
Set c = CreateObject("Scripting.FileSystemObject")
oldpath = "C:\testfilesFROM\": newpath = "C:\testfilesTO\"
x = Range([a2], [a2].End(xlDown))
For i = 1 To UBound(x)
c.movefile oldpath & x(i, 1) & ".txt", newpath & x(i, 1) & ".txt"
n = n + 1
Next: MsgBox n & "files has been successfully moved", vbInformation: End Sub
Any ideas?
thanks
Geoff