Variabile in nome file per upload

Question

Buongiorno,

dovendo fare upload di file.mdb in un sito web, vorrei che i file fossero nominati inserendo la data e l'ora nel nome del file.mdb, in modo da tenerli distinti per non perderli con la sovrascrittura.

Come posso inserire la variabile "data" utilizzando il codice che esegue l'upload?

Utilizzo questo codice:

 Sub TestFTPUpload()

 '   Dim data As String

  '  data = Now()

   On Error GoTo ErrHandler

   Dim objFTP As ftp

   Const conTARGET = "ftp://ftp.miosito.org/"

   Set objFTP = New ftp

    With objFTP

       .FtpURL = conTARGET

       .SourceFile = "C:\db da inviare.mdb"

       .DestinationFile = "directory web/miodb.mdb"

       .AutoCreateRemoteDir = True

       If Not .IsConnected Then .DialDefaultNumber

       .ConnectToFTPHost "************", "********"

       .UploadFileToFTPServer

   End With

ExitHere:

   On Error Resume Next

   Set objFTP = Nothing

   Call SysCmd(acSysCmdRemoveMeter)

   Exit Sub

ErrHandler:

   MsgBox Err.Number & vbCrLf & Err.Description, vbCritical + vbOKOnly, Err.Source

   Resume ExitHere

End Sub

Grazie

Rinaldo

Answer 1

Ad esempio così:

    .DestinationFile = "directory web/miodb" & Replace(date, "/", "_") & "_" & Breplace(Time, ":", "_") & ".mdb"

---

Cinzia

---

Sito RIO

Il mio Blog

Answer 2

Grazie Cinzia,

ho corretto "Breplace" che immagino fosse un errore di battitura con "Replace" e tutto funziona a meraviglia.

Sei stata ancora di grande aiuto.

Ciao

Rinaldo