Spaces in file path causing issues 2

[royalcheese]

Hi All

I have a function that ftps a file from a to b , the issue im getting is when the file path is larger / has spaces I think as an example

"C:\Program Files\File Program\Upload" - Errors because of spaces I think

"C:\Upload" Works fine.

My Question is how can get the Longer string with spaces etc to work.

Many Thanks


Chris

 

[JoeAtWork]

Perhaps you could use the following function to get the short name to the file:

Public Function ShowShortName(filespec) As String
    Dim fs As FileSystemObject
    Dim f As File
    Dim s As String
    
    Set fs = New FileSystemObject
    Set f = fs.GetFile(filespec)
    
    ShowShortName = f.ShortPath & "\" & f.ShortName
    
End Function

You need to make a reference to the Microsoft Scripting Runtime library to use the FileSystemObject.

 

[vbSun]

If you have the filepath stored in a variable, try modifying it like below.

strFilePath = """C:\Program Files\File Program\Upload"""

This encloses the filepath in double quotes (Try debug.print) which should resolve your problem.

------------------------------------------
The faulty interface lies between the chair and the keyboard.

 

[royalcheese]

Joe At work

This looks good but i get issues

I am calling like this

newupload = ShowShortName(uPfUpload & "\" & nsfil)

uPFupload : contains the folder name
nsFil : contains the file name

I have ensured that the scripting dll is installed.

the errors comes on

Set f = fs.GetFile(filespec) ' concatinated file string

the error is "File Not Found" with a runtime error of '53'

How can I get round this ?

Thanks very much in advance and thanks for help already

Cheers

Chris

 

[vbSun]

If uPfUpload contains a "\" at the end, the file path will come out incorrect.

Try removing the "\" from newupload = ShowShortName(uPfUpload & "\" & nsfil)

After removing it, the code will read

newupload = ShowShortName(uPfUpload & nsfil)



------------------------------------------
The faulty interface lies between the chair and the keyboard.

 

[strongm]

Psst - the FileSystemObject has a BuildPath method ...

 

[royalcheese]

No change if i take it out , the file path is stored with out the "\", so this is needed to make the file path continue and seperate the file from the path.

 

[SBerthold]

Are you sure the filespec exists?

If fs.FileExists(filespec) Then

 

[royalcheese]

ahh yes on letter out of place this works fine now , cheers guys !

Mucho Thanks

 

[BobRodes]

<snicker>