Renaming long file name with VBA

JillB · February 2nd, 2008, 01:10 AM

Can anyone please advise on limitations to file name lengths in VBA?

I am trying to Rename a file on a server with a long address.

Name strA as strB <<< where strA and strB are .zip file names of 172 characters, does not work.

Similarly using FileSystemObject does not work:

dim fso as object
Set fso = CreateObject("Scripting.FileSystemObject")
fso.MoveFile strA, strB
Set fso = Nothing

I would be grateful for any suggestions on how to get around this problem

many thanks,

Jil

tstav · March 24th, 2008, 06:20 PM

Hi Jil,
it's been ages since your opening post and chances are you have found the answer to your problem. Would be nice if you shared it with us.

Still, in case there has been no solution, I'd like to say that I tried it with a 180-char file name and it all worked out smoothly.

Code:

Sub RenameFile()
Dim file1 As String, file2 As String, path1 As String
file1 = "123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890.zip"
file2 = "123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567899.zip"
path1 = "C:\FolderA\FolderB"
Name path1 & "\" & file1 As path1 & "\" & file2
End Sub

My guess is that it had something to do with the path and not the filename. But still, you never mentioned what kind of message you got, so...

Regards, tstav