doubled911
asked on
I can copy the newest file. But I cant't Move it.
Hello here is my stumbling block. I have a script that copies the newest file in a folder based on file extention into another folder perfectly. But I am having trouble changing the script so that it moves the newest file. I Tried to Edit the line where objFSO.CopyFile strNewestFilePath, and change it to objFSO.MoveFile but this does not work. Can some one help me to get it to move the file.
Set objFSO = CreateObject("Scripting.FileSystemObject")
' Define the folder path to find the newest file here:
strSourceFolder = "C:\Test1"
' Define the folder path to find the newest file here:
strTargetFolder = "C:\Test2"
' Define each extension that you want to find the newest file of, separated by a semi-colon
' leave it blank to find the newest file in the whole folder
strExtensions = ".log"
' Make sure the target folder has a trailing slash
If Right(strTargetFolder, 1) <> "\" Then strTargetFolder = strTargetFolder & "\"
If strExtensions = "" Then
arrExtensions = Array("")
Else
arrExtensions = Split(strExtensions, ";")
End If
For Each strExt In arrExtensions
' Here we call the GetNewestFile function, passing the path to the source folder for it to search
strNewestFilePath = GetNewestFile(strSourceFolder, strExt)
' Now copy the newest file to the target folder
objFSO.CopyFile strNewestFilePath, strTargetFolder, True
MsgBox strNewestFilePath & " was copied to " & strTargetFolder
Next
Function GetNewestFile(ByVal sPath,ByVal sExt)
sNewestFile = Null ' init value
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder(sPath)
Set oFiles = oFolder.Files
' enumerate the files in the folder, finding the newest file
For Each oFile In oFiles
If sExt = "" Then
On Error Resume Next
If IsNull(sNewestFile) Then
sNewestFile = oFile.Path
dPrevDate = oFile.DateLastModified
ElseIf dPrevDate < oFile.DateLastModified Then
sNewestFile = oFile.Path
dPrevDate = oFile.DateLastModified
End If
On Error Goto 0
ElseIf Right(LCase(oFile.Name), Len(sExt)) = LCase(sExt) Then
On Error Resume Next
If IsNull(sNewestFile) Then
sNewestFile = oFile.Path
dPrevDate = oFile.DateLastModified
ElseIf dPrevDate < oFile.DateLastModified Then
sNewestFile = oFile.Path
dPrevDate = oFile.DateLastModified
End If
On Error Goto 0
End If
Next
If IsNull(sNewestFile) Then sNewestFile = ""
GetNewestFile = sNewestFile
End Function
Check to see if you have write permissions on that folder. If you don't, then all you can do is read. It would help if you would post the error as well.
ASKER
I have full permissions to my folders and I am the owner. I dont have problems writting the folders. But here is the error I get
The error I get says
Line: 22
Char: 2
Error: Wrong arguments or invalid property assignment: 'objFSO.MoveFile'
Code: 800A01C2
The error I get says
Line: 22
Char: 2
Error: Wrong arguments or invalid property assignment: 'objFSO.MoveFile'
Code: 800A01C2
Movefile has different arguments:
fso.MoveFile "SourcePath&Filename", "TargetPath"
Or
fso.MoveFile Source:="SourcePath&Filena me", Destination:="TargetPath"
fso.MoveFile "SourcePath&Filename", "TargetPath"
Or
fso.MoveFile Source:="SourcePath&Filena
This should work fine:
objFSO.MoveFile strNewestFilePath, strTargetFolder
the last parameter doesn't exist, but it doesn't overwrite either, it doesn't support that.
What you need to is delete it before moving it, by placing this line above that
If objFSO.FileExists(strTarge tFolder & Mid(strNewestFilePath, InStrRev(strNewestFilePath , "\") + 1)) = True Then objFSO.DeleteFile strTargetFolder & Mid(strNewestFilePath, InStrRev(strNewestFilePath , "\") + 1), True
Regards,
Rob.
objFSO.MoveFile strNewestFilePath, strTargetFolder
the last parameter doesn't exist, but it doesn't overwrite either, it doesn't support that.
What you need to is delete it before moving it, by placing this line above that
If objFSO.FileExists(strTarge
Regards,
Rob.
ASKER
Just wanted to say Thank your for the original code Rob... sir. I believe I might be placing this in the wrong spot. I believe the
If objFSO.FileExists(strTarge tFolder & Mid(strNewestFilePath, InStrRev(strNewestFilePath , "\") + 1)) = True Then objFSO.DeleteFile strTargetFolder & Mid(strNewestFilePath, InStrRev(strNewestFilePath , "\") + 1), True
is supposed to go back and delete the file after it copies it over???So I copied the upper portion of the code that I believe I should be altering based on how I'm interpreting your advice. The thing is its still copying which is good but the newest file is still in the original source folder Test 1.
If objFSO.FileExists(strTarge
is supposed to go back and delete the file after it copies it over???So I copied the upper portion of the code that I believe I should be altering based on how I'm interpreting your advice. The thing is its still copying which is good but the newest file is still in the original source folder Test 1.
Orginal Working Syntax:
Set objFSO = CreateObject("Scripting.FileSystemObject")
' Define the folder path to find the newest file here:
strSourceFolder = "C:\Test1"
' Define the folder path to find the newest file here:
strTargetFolder = "C:\Test2"
' Define each extension that you want to find the newest file of, separated by a semi-colon
' leave it blank to find the newest file in the whole folder
strExtensions = ".log"
' Make sure the target folder has a trailing slash
If Right(strTargetFolder, 1) <> "\" Then strTargetFolder = strTargetFolder & "\"
If strExtensions = "" Then
arrExtensions = Array("")
Else
arrExtensions = Split(strExtensions, ";")
End If
For Each strExt In arrExtensions
' Here we call the GetNewestFile function, passing the path to the source folder for it to search
strNewestFilePath = GetNewestFile(strSourceFolder, strExt)
' Now copy the newest file to the target folder
objFSO.CopyFile strNewestFilePath, strTargetFolder, True
My Changes:
Set objFSO = CreateObject("Scripting.FileSystemObject")
' Define the folder path to find the newest file here:
strSourceFolder = "C:\Test1"
' Define the folder path to find the newest file here:
strTargetFolder = "C:\Test2"
' Define each extension that you want to find the newest file of, separated by a semi-colon
' leave it blank to find the newest file in the whole folder
strExtensions = ".log"
' Make sure the target folder has a trailing slash
If objFSO.FileExists(strTargetFolder & Mid(strNewestFilePath, InStrRev(strNewestFilePath, "\") + 1)) = True Then objFSO.DeleteFile strTargetFolder & Mid(strNewestFilePath, InStrRev(strNewestFilePath, "\") + 1), True
If Right(strTargetFolder, 1) <> "\" Then strTargetFolder = strTargetFolder & "\"
If strExtensions = "" Then
arrExtensions = Array("")
Else
arrExtensions = Split(strExtensions, ";")
End If
For Each strExt In arrExtensions
' Here we call the GetNewestFile function, passing the path to the source folder for it to search
strNewestFilePath = GetNewestFile(strSourceFolder, strExt)
' Now copy the newest file to the target folder
objFSO.CopyFile strNewestFilePath, strTargetFolder, True
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
OMG!!!! Dude you are pure Genius!!!! LOL Man you just made my day!! Thank you!!!! I feel like I owe you a beer or somthing. LOL!! Thank you sir!!
ASKER
Rob is really on his A game really truely knowledgeable.
Thanks for the grade.
Glad I could help.
Regards,
Rob.
Glad I could help.
Regards,
Rob.