🚀 go-pugleaf

Sto cercando di scrivere un programma che esegua una copia di un file con
una diversa estensione a mo' di backup; pensavo fosse una banalit�.

Ho provato alcuni metodi, ma non sono riuscito a risolvere il problema che
se nel percorso c'� uno spazio, il programma abortisce con Run-time error
52 - Bad file name or number. Se, invece, non vi sono spazi, la copia
procede regolarmente.

In MSDE non ho trovato nulla di illuminante.
In calce il sorgente ridotto all'osso.

Grazie per l'eventuale aiuto.
Marco Springhetti

*******************************************

Private Sub Form_Load()
    Dim Fname, FnameRoot, NewFname, NewExt As String
    Dim OldX, PosDot As Integer
    Dim fso As New FileSystemObject
'
    Fname = CStr(Command)
'   Se imposto a mano Fname = "c:\aaa aaa\a a.txt" funziona bene!!!
    If Len(Fname) = 0 Then
        GoTo out
    End If
    PosDot = InStrRev(Fname, ".")
    FnameRoot = Left(Fname, PosDot)
    OldX = 0
A1: OldX = OldX + 1
    NewExt = "old" & CStr(OldX)
    NewFname = FnameRoot & NewExt
    If fso.FileExists(NewFname) Then
        GoTo A1
    End If
    fso.CopyFile Fname, NewFname
out:
    Unload Me
End Sub