Newsgroup: it.comp.appl.access
Titolo: Rinominare file

Salve a tutti,
è possibile rinominare un file da Access ?

 è possibile rinominare un file da Access ?
 
Si, la Funzione Name, consente sia di Rinominare che di Rinominare e spostare:
 
Name “C:\OldDir\OldFileName.ext” As “C:\NewDir\NewFileName.ext”
 
@Alex


Grazie Alex, ma è possibile anche rinominarlo con l'immissione automatica della data e l'ora come nome ?

 Grazie Alex, ma è possibile anche rinominarlo con l'immissione automatica della data e l'ora come nome ?
 
Di AUTOMATICO non c'è nulla... se tu costruisci il NUOVO NOME con le caratteristiche che ti servono, alla fine il file si chiama come TU gli hai detto.
 
Dovrai predisporre un po di codice, 2 righe... per rigenerare il NOME in base a criteri che tu stesso devi definire... poi chiami quella funzione.
 
@Alex


Grazie Alex, ma puoi farmi un esempio ?


es:
nome = "DIR\" & Year(Date) & Format(Month(Date), "00") & 
Format(Day(Date), "00")
 
 
---
Questa e-mail è stata controllata per individuare virus con Avast antivirus.
https://www.avast.com/antivirus
 
 

 ---
ad esempio usando XCOPY posso fare la copia di questo file e metterlo dove voglio ma vorrei anche cambiargli il nome con la data e l'ora del momento
Call Shell("XCOPY /Q/Y C:\pippo.mdb F:\")
come faccio ?


Mispiego meglio...
io ho la necessità di fare la copia del file di Access che stò usando chiamando il nuovo file con la data del giorno e l'ora e non più col vecchio nome dello stesso. Spero di essermi spiegato. Alex confido nella tua bravura e gentilezza...
Grazie.


o altrimenti se io ho un file denominato 000.mdb come faccio con Name a rinominarlo e a dargli lo stesso nome incrementato automaticamente di 1 ovvero sia 001.mdb
Cosa debbo aggiungere al posto di ?
Name "D:\000.mdb" As "D:\ ?
Grazie
 
Grazie
 


001.mdb

 
Questo è un pezzo di codice (se ho ben capito) che eseguito da un 
pulsante su di una form (quando tutte le altre sono chiuse) fa il backup 
del BE compattandolo e rinominandolo...
Non so se fa al caso tuo, ma avendolo usato te lo invio. Aggiustalo 
secondo come ti garba.
 
Private Sub CmdBackUp_Click()
Dim NomeFileBE As String, strDestFile As String, fDialog As 
Office.FileDialog
 
     NomeFileBE = Mid$(CurrentDb.TableDefs("TblAnagrafica").Connect, 11, 
(InStrRev(CurrentDb.TableDefs("Mia Tbl").Connect, "\") - 10)) & 
"Database.mdb"
 
     Set fDialog = Application.FileDialog(msoFileDialogSaveAs)
     With fDialog
         .InitialFileName = "GericoBK " & "." & Year(Date) & "." & 
Format(Month(Date), "00") & "." & Format(Day(Date), "00") & ".mdb"
         .title = "Seleziona dove salvare la copia di sicurezza della 
base dati."
         If .Show = True Then
             strDestFile = fDialog.SelectedItems.Item(1) ' restituisce 
il path completo
             On Error Resume Next
             FileCopy NomeFileBE, strDestFile
             If Err.Number = 0 Then
                 MsgBox "Copia di backup base dati GeRico completata su 
" & vbCrLf & strDestFile & vbCrLf & vbCrLf & "Si consiglia, se non già 
provveduto, di salvare la copia su un supporto esterno (chiavetta o 
hard-disk USB) o su cloud (dropbox, ecc...).", vbOKOnly + vbInformation, 
"Backup base dati "
             Else
                 MsgBox "Errore durante la creazione della copia di 
backup della base dati:" & vbCrLf & "Errore " & Err.Number & " - " & 
Err.Description, vbOKOnly + vbCritical, "  "
             End If
             On Error GoTo 0
         Else
             MsgBox "hai cliccato CANCEL !."
         End If
     End With
     Set fDialog = Nothing
  DoCmd.Quit
End Sub
 
saluti
 
BC