Renaming all files in a directory

[Jan Kronsell]

Hi NG

Im trying to rename/move all files in a directory using

Sub nytfors()
Set fs = Application.FileSearch
With fs
.LookIn = "C:\tb"
.Filename = "*.jpg"
End With
For i = 1 To fs.FoundFiles.Count
OldName = "C:\tb\" & fs.FoundFiles(i)
NewName = "C:\tb2\u" & i
'Debug.Print OldName, NewName
Name OldName As NewName
Next i
End Sub

but the code stops at
Name OldName As NewName

telling me its an invalid procedure call or argument.

Any ideas?

Jan

 

[Jan Kronsell]

Sorry. My mistake

OldName = "C:\tb\" & fs.FoundFiles(i)

should be

OldName = fs.FoundFiles(i)

And then it worked.

Jan

 

[Bob Phillips]

Jan,

Haven't tested it, but I would guess that you are not renaming, but moving
to a new directory as well.

You might need to create the directory

MkDir "C:\tb2\u"

at thestart.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

 

[Nick Cranham]

Jan ,
According help, you need to add a .Execute on the fs object.

NickHK

 

[Jan Kronsell]

Thnaks all, but i solved problem myself. I forgot that the fsfs.founfiles
already included the path, so when I removed the "c:\tb\" from the Oldname
variable it worked.

Jan