Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
What is wrong with this code?
This code is suppose to move and rename all files to a different
directory with todays date in the format of "mmyydd_" in the front of each file. When the code runs it find all my files but the files are not renamed or moved. What am I doing wrong? Thanks Steve ****CODE START HERE**** Sub MSIToIMDS() Application.ScreenUpdating = False Dim OldName As String Dim NewName As String Dim x As String Dim i As Integer 'set file path Oldpath = "C:\MSIReportNameConvert\MSI_Input\" Newpath = "C:\MSIReportNameConvert\IMDS_Output\" With Application.FileSearch .NewSearch .LookIn = Oldpath .SearchSubFolders = False 'True .MatchTextExactly = False .Filename = "*.*" If .Execute(msoSortOrderDescending) 0 Then MsgBox "There were " & .FoundFiles.Count & " file(s) found." On Error Resume Next For i = 1 To .FoundFiles.Count OldName = .FoundFiles(i) xconvention = Format(Date, "MMDDYY_") NewName = Newpath & xconvention & OldName Name OldName As NewName Next i Else MsgBox "There were no files found." End If End With Application.ScreenUpdating = True End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
What is wrong with this code?
If your new path is using an existin directory then you could use the Move
method to put the file there after you rename it. Otherwise, you would need to use MkDir to set up the new directory and then move the file. I don't think you can reassign directiories by renaming only. "Steve" wrote: This code is suppose to move and rename all files to a different directory with todays date in the format of "mmyydd_" in the front of each file. When the code runs it find all my files but the files are not renamed or moved. What am I doing wrong? Thanks Steve ****CODE START HERE**** Sub MSIToIMDS() Application.ScreenUpdating = False Dim OldName As String Dim NewName As String Dim x As String Dim i As Integer 'set file path Oldpath = "C:\MSIReportNameConvert\MSI_Input\" Newpath = "C:\MSIReportNameConvert\IMDS_Output\" With Application.FileSearch .NewSearch .LookIn = Oldpath .SearchSubFolders = False 'True .MatchTextExactly = False .Filename = "*.*" If .Execute(msoSortOrderDescending) 0 Then MsgBox "There were " & .FoundFiles.Count & " file(s) found." On Error Resume Next For i = 1 To .FoundFiles.Count OldName = .FoundFiles(i) xconvention = Format(Date, "MMDDYY_") NewName = Newpath & xconvention & OldName Name OldName As NewName Next i Else MsgBox "There were no files found." End If End With Application.ScreenUpdating = True End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
What is wrong with this code?
G'day Steve
Try this Dim OldName As String Dim NewName As String Dim x As String Dim i As Integer Dim FileYes As Integer Dim FileNo As Integer With Application ..ScreenUpdating = False ..EnableEvents = False End With Set Oldpath = "C:\MSIReportNameConvert\MSI_Input\" Set Newpath = "C:\MSIReportNameConvert\IMDS_Output\" With Application.FileSearch .NewSearch .LookIn = Oldpath .SearchSubFolders = False 'True .MatchTextExactly = False .Filename = "*.*" If .Execute(msoSortOrderDescending) 0 Then FileYes = MsgBox ("There were " & .FoundFiles.Count & " file(s) found.",vbOKOnly) On Error Resume Next For i = 1 To .FoundFiles.Count OldName = .FoundFiles(i) xconvention = Format(Date, "MMDDYY_") NewName = Newpath & xconvention & OldName Name OldName As NewName Next i Else FileNo = MsgBox ("There were no files found.",vbOKOnly) End If End With With Application ..ScreenUpdating = False ..EnableEvents = False End With End Sub HTH Mark. |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
What is wrong with this code?
Sub MSIToIMDS()
Application.ScreenUpdating = False Dim OldPath As String Dim NewPath As String Dim OldName As String Dim NewName As String Dim x As String Dim i As Integer Dim xconvention 'set file path OldPath = "C:\test" '"C:\MSIReportNameConvert\MSI_Input\" NewPath = "C:\MSIReportNameConvert\IMDS_Output\" With Application.FileSearch .NewSearch .LookIn = OldPath .SearchSubFolders = False 'True .MatchTextExactly = False .Filename = "*.*" If .Execute(msoSortOrderDescending) 0 Then MsgBox "There were " & .FoundFiles.Count & " file(s) found." On Error Resume Next For i = 1 To .FoundFiles.Count OldName = .FoundFiles(i) xconvention = Format(Date, "MMDDYY_") NewName = NewPath & xconvention & Mid(OldName, InStrRev(OldName, "\") + 1) Name OldName As NewName Next i Else MsgBox "There were no files found." End If End With Application.ScreenUpdating = True End Sub -- __________________________________ HTH Bob "Steve" wrote in message ... This code is suppose to move and rename all files to a different directory with todays date in the format of "mmyydd_" in the front of each file. When the code runs it find all my files but the files are not renamed or moved. What am I doing wrong? Thanks Steve ****CODE START HERE**** Sub MSIToIMDS() Application.ScreenUpdating = False Dim OldName As String Dim NewName As String Dim x As String Dim i As Integer 'set file path Oldpath = "C:\MSIReportNameConvert\MSI_Input\" Newpath = "C:\MSIReportNameConvert\IMDS_Output\" With Application.FileSearch .NewSearch .LookIn = Oldpath .SearchSubFolders = False 'True .MatchTextExactly = False .Filename = "*.*" If .Execute(msoSortOrderDescending) 0 Then MsgBox "There were " & .FoundFiles.Count & " file(s) found." On Error Resume Next For i = 1 To .FoundFiles.Count OldName = .FoundFiles(i) xconvention = Format(Date, "MMDDYY_") NewName = Newpath & xconvention & OldName Name OldName As NewName Next i Else MsgBox "There were no files found." End If End With Application.ScreenUpdating = True End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
What is wrong with this code ?? | Excel Programming | |||
What's wrong with my code? Thanks | Excel Programming | |||
What is wrong with this code? | Excel Programming | |||
Can someone tell me what's wrong with this code please? | Excel Programming | |||
Is something wrong with the code | Excel Programming |