codice vba per modificare il nome del file

Question

salve a tutti

in una maschera carico, attraverso un cmdFile, i file provenienti da qualsiasi directory e popolo due txtbox di nome txtFile e txtPath

Da un altro comando cmdcopyfile3 "riesco" a copiare il file in un percorso predefinito e creare contemporaneamente una cartella, in base al valore riportato nella txtCategoria e una sottocartella in base al valore txtSottocategoria.

Ho inserito una nuova cmdRinominaFIle, da dover utilizzare in caso di voler rinominare il file presente nel txtFile, e al click il setfocus va su txtFile da modificare e successivamente su pulsante cmdCopy inserisci il file rinominato

Per fare tuttociò occorre inserire una nuova txtNuovoNomeFile per gestire meglio?

In pratica vorrei far si che se il nome del file caricato è corretto di procedere o in alternativa modificarlo

Il codice attuale:

Private Sub cmdCopyFiles3_Click()

'Const myPath  As String = "B:\Documenti" ' <----- personalizza il path!!

If Not folderExists(myPath) Then MkDir myPath

If Not FileExists(Me.txtFile) Then VBA.MsgBox "il file non esiste", vbCritical, "warning": Exit Sub

Dim strFile     As String

Dim i           As Integer

Dim strFileName As String

strFile = justFileName(Me.txtFile)

If Not folderExists(myPath & Me.txtCategoria) Then

    MkDir myPath & Me.txtCategoria

End If

If Not folderExists(myPath & Me.txtCategoria & "" & Me.txtSottocategoria) Then

    MkDir myPath & Me.txtCategoria & "" & Me.txtSottocategoria

End If

strFileName = myPath & Me.txtCategoria & "" & Me.txtSottocategoria & "" & strFile

i = 1

Do While Len(Dir(strFileName)) > 0

    strFileName = "copia di (" & i & ") " & strFile

    i = i + 1

    strFileName = myPath & Me.txtCategoria & "" & Me.txtSottocategoria & "" & strFileName

Loop

strFile = strFileName

FileCopy Me.txtFile, strFile

If FileExists(strFile) Then VBA.MsgBox "file copiato con successo", vbInformation, "Info"

End Sub

Grazie a Voi tutti.

Answer 1

ciao NebbiaDB,

per la formattazione della data prova a studiare la funzione nativa format$.

Ragiona su questo...

se vuoi anteporre ai files che carichi la data o qualsiasi altra cosa e fare in modo che il file acquisisca anche la data nel suo nome, il file deve essere comunque rinominato, e per comunque intendo dire SEMPRE.

quindi qui :

[....]

 Ad esempio dopo caricato il file e rinominato oppure no,

[...]

Grazie ancora infinite Sandro

Oppure no...mmm....ci sta poco...

Se si tratta, ma non credo, di inserire all'interno del nome anche la data SOLO nel tuo db con format$ risolvi.

Se invece come penso vuoi che anche il file fisico salvato su disco assuma questa modifica, devo procedere con la rinomina sistematica.

[...]

Grazie ancora infinite Sandro

[...]

ciao, Sandro

ps. apri un altro 3d qui sfioriamo il teraByte ormai ed è diventato un sguazzabuglio di issues....

Answer 2

Ciao Mauro e grazie

proverò ad adattare, speriamo bene

grazie ancora

Answer 3

Questa rinomina il file nella stessa cartella:

Public Sub m()

    Dim objFSO As Object

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    objFSO.MoveFile "C:\Prova\abc.txt", "C:\Prova\xyz.txt"

    Set objFSO = Nothing

End Sub

Questo rinomina il file e lo salva in altra cartella eliminandolo dalla prima (taglia/incolla/rinomina):

Public Sub m()

    Dim objFSO As Object

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    objFSO.MoveFile "C:\Prova\abc.txt", "C:\Provax\xyz.txt"

    Set objFSO = Nothing

End Sub

Questo rinomina il file, lo lascia anche nella cartella di origine e lo copia in quella di destinazione cambiando il nome (copia/incolla/rinomina):

Public Sub m()

    Dim objFSO As Object

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    objFSO.CopyFile "C:\Prova\abc.txt", "C:\Provax\xyz.txt"

    Set objFSO = Nothing

End Sub

Answer 4

Salve a tutti,

ho provato ad inserire nella frmInserimento un nuovo controllo txtNuovoNomeFile dove cercare di ricavare il nome in questo modo:

txtNuovoNomeFile = data_inserimento in questo formato anno-mese-giorno - check_oggetto ad esempio 2016-01-18 - Prova salvataggio file.docx

ed al cmdCopyFiles3 dovrebbe rinominare il file creato nella cartella e sottocartella.

ho provato, ma proprio non riesco.

Grazie a Voi tutti.

Answer 5

Ciao ,

l'istruzione VBA per rinominare un file è Name, qui trovi tutte le info: Name statement

Per fare tuttociò occorre inserire una nuova txtNuovoNomeFile per gestire meglio?

se devi chiedere il novo nome del file all'operatore direi di sì.

Ciao

Giorgio Rancati