move multiple files

[enerks]

I already coded what I think should do the trick but it doesn't seem to work.

Lfiles = Dir("C:\SomeFolder\")
Do Until Lfiles = ""
OldFilePath = "C:\Folder1\" & Lfiles
NewFilePath = "C:\Folder2\" & Lfiles
If Dir(NewFilePath) = Dir(OldFilePath) Then Kill (NewFilePath)
Name OldFilePath As NewFilePath
Lfiles = Dir()
Loop

It only works for the first files it find in DIR("C:\SomeFolder\") then is stops. Can someone point me in the right direction to solve this problem?

 

[Andrew Poulsom]

When you call Dir with no arguments it uses the last used pathname. I think in your case it would be NewFilePath rather than "C:\SomeFolder\".

Check out the FileSearch object in VBA Help. That will return an array of file names (FoundFiles) that you can loop around.

 

[enerks]

Thanks Andrew,

I change the code from Lfiles = dir() to Lfiles = dir("c:\SomeFolder\")
and added if Lfiles = "" Then End

Now it works. I jus needed your hint that it uses the last used pathname!

Thanks again.

Rene

 

[enerks]

The complete correct code was posted earlier last week:

Dim strSrcDir As String
Dim strDstDir As String
Dim I As Long

strSrcDir = "folder1"
strDstDir = "folder2"

With Application.FileSearch
.NewSearch
.LookIn = strSrcDir
.FileType = msoFileTypeAllFiles
.Execute
For I = 1 To .FoundFiles.Count
Name (.FoundFiles(I)) As strDstDir & Dir(.FoundFiles(I))
Next I
End With