Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
I'm trying to rename files and then move them to a new
folder. The code to rename works. The code to move works. They don't work together. Attached is the complete code. Files in the original folder will rename using the filecopy. Kill works and the original file is gone but the move never takes place. If I comment out the copy and kill pharses then the move works fine. What am I doing wrong? Thanks Mike Sub TEST() Dim oFSO As Object Dim inFILE, outFILE, fNAME, fromFOLDER, toFOLDER Set oFSO = CreateObject("Scripting.FileSystemObject") inFILE = Dir("C:\DVW\REPORTS\") fNAME = oFSO.getbasename(inFILE) oFSO.copyfile inFILE, fNAME & " NGPS" & ".xls" Kill inFILE Do While inFILE < "" inFILE = Dir fNAME = oFSO.getbasename(inFILE) On Error GoTo OOPS oFSO.copyfile inFILE, fNAME & " NGPS" & ".xls" Kill inFILE Loop fromFOLDER = "C:\DVW\REPORTS\*.XLS" toFOLDER = "C:\DVW\REPORTS\D9\" oFSO.movefile fromFOLDER, toFOLDER Set oFSO = Nothing OOPS: If Err < 0 Then Err.Clear End If End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
IF function question | Excel Worksheet Functions | |||
Function Question | Excel Worksheet Functions | |||
IF function question | Excel Worksheet Functions | |||
Function Question | Excel Worksheet Functions | |||
Help: Question Regarding Name Function | Excel Programming |