Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
DIR Function Question
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
DIR Function Question
Maybe simpler to use FileCopy:
Sub test() FileCopy "C:\File1.txt", "C:\File2.txt" Kill "C:\File1.txt" End Sub RBS "Mike" wrote in message ... 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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
DIR Function Question
Why not just
Name "C:\File1.txt", "C:\File2.txt" -- HTH RP (remove nothere from the email address if mailing direct) "RB Smissaert" wrote in message ... Maybe simpler to use FileCopy: Sub test() FileCopy "C:\File1.txt", "C:\File2.txt" Kill "C:\File1.txt" End Sub RBS "Mike" wrote in message ... 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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
DIR Function Question
Bob,
You are right, I keep forgetting that one. Still it was better than using the Scripting.FileSystemObject. RBS "Bob Phillips" wrote in message ... Why not just Name "C:\File1.txt", "C:\File2.txt" -- HTH RP (remove nothere from the email address if mailing direct) "RB Smissaert" wrote in message ... Maybe simpler to use FileCopy: Sub test() FileCopy "C:\File1.txt", "C:\File2.txt" Kill "C:\File1.txt" End Sub RBS "Mike" wrote in message ... 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 |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
DIR Function Question
I agree. It was only seeing you questioning FSO that made me think of Name.
Regards Bob "RB Smissaert" wrote in message ... Bob, You are right, I keep forgetting that one. Still it was better than using the Scripting.FileSystemObject. RBS "Bob Phillips" wrote in message ... Why not just Name "C:\File1.txt", "C:\File2.txt" -- HTH RP (remove nothere from the email address if mailing direct) "RB Smissaert" wrote in message ... Maybe simpler to use FileCopy: Sub test() FileCopy "C:\File1.txt", "C:\File2.txt" Kill "C:\File1.txt" End Sub RBS "Mike" wrote in message ... 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
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 |