Rinomina file.csv

Question

Buonasera,

nel desktop ho un file chiamato report.csv che viene scaricato automaticamente tutti i giorni con la stesso nome.

Vorrei che il file venisse salvato nella cartella report nel desktop rinominarlo con lo stesso nome ma aggiungendo la data di ultima modifica riportata nel file stesso (quando faccio proprietà del file) e cancellare il file originale(report.csv) in modo quando viene eseguito un nuovo scarico al giorno successivo non trova già un file con lo stesso nome.

Spero di essermi spiegato.....

Grazie mille

Marco

Answer 1

Potresti provare con qualcosa del genere:

Sub RinominaSpostaFile()

   Const sNomeFileIniziale = "report.csv"

   Const sPathIniziale = "D:\Test" '<--- personalizzare

   Const sPathDestinazione = "D:\Test\report" '<--- personalizzare

   Dim sNuovoNomeFile

   sNuovoNomeFile = Left(sNomeFileIniziale, Len(sNomeFileIniziale) - 4) & _

                  Format(Now, "_yyyymmdd_hhmmss") & Right(sNomeFileIniziale, 4)

   Name sPathIniziale & sNomeFileIniziale As sPathDestinazione & sNuovoNomeFile

End Sub

Answer 2

grazie mille

Prego :)

Answer 3

ok...

funziona benissimo...

grazie mille

Marco