Ciao a tutti, ho un dilemma che non riesco a risolvere.. ho neccessità di recuperare dall'interno di un file il contenuto e di usare questo contenuto per copiare e rinominare il file. mi spiego meglio:
Ho un file1 che si chiama 14-1-2021.csv dovrei copiarlo e rinominarlo in un nuovo file, ma il nome del nuovo file devo prenderlo dall'interno di un altro file (file2).
secondo la mia logica prima di tutto apro il file 2 per recuperare il suo contenuto. e più precisamente:
dichiaro il percorso e nome del file
Dim FileSito As String FileSito = (App.Path & "\Db\sito_hub\") & "sito-" & (Day(Date) & "-" & Month(Date) & "-" & Year(Date) & ".dat")lo apro assegnando il nome trovato alla label sito.caption
Open FileSito For Input As #1 sito.Caption = Input$(LOF(1), #1) Close #1
mi viene recuperato il nome selargius pertanto vedro nel form che sito.caption mostra selargius
ora voglio copiare il famoso file "14-1-2021.csv" come "selargius-14-1-2021.csv"
pertanto scrivo:
Dim RINOstrFileORIG As String Dim RINOstrFileDEST As String RINOstrFileORIG = (App.Path & "\Archivio\") & (Day(Date) & "-" & Month(Date) & "-" & Year(Date) & ".csv") RINOstrFileDEST = (App.Path & "\Archivio\")& sito.caption & (Day(Date) & "-" & Month(Date) & "-" & Year(Date) & ".csv") FileCopy RINOstrFileORIG, RINOstrFileDESTfacendo cosi mi viene restituito un errore e cioè il seguente
errore di run-time 52 Nome o numero di file non valido... perchè?
se invece di riempire la label sito.caption dal contenuto del file la dichiaro nel codice.. esempio
sito.caption="selargius"
tutto funziona correttamente... non capisco... qualcuno potrebbe illuminarmi ?