codice vba per modificare il nome del file

ciao NebbiaDB,

prova a sostituire la routine evento click del command button cmdCopyFiles3 in questo modo :

Private Sub cmdCopyFiles3_Click()

If Len(Me.txtCategoria & vbNullString) = 0 Then

    VBA.MsgBox "Categoria MANCANTE!!!", vbCritical, "Attenzione"

    Exit Sub

End If

If Len(Me.txtSottocategoria & vbNullString) = 0 Then

    VBA.MsgBox "SottoCategoria MANCANTE!!!", vbCritical, "Attenzione"

    Exit Sub

End If

Const myPath  As String = "C:\reports" ' <----- personalizza il path!!

If Not folderExists(myPath) Then MkDir myPath

 If Not FileExists(Me.txtNuovoNomeFile) 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.txtNuovoNomeFile)

strFile = myPath & Me.txtCategoria & "" & Me.txtNuovoNomeFile

 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 & "" & Me.txtNuovoNomeFile

 Dim style    As VBA.VbMsgBoxStyle

 Dim style2   As VBA.VbMsgBoxStyle

 Dim strInfo  As String

 Dim strInfo2 As String

 Dim Title    As String

 strInfo = "il file:" & vbNewLine & _

           strFileName & vbNewLine & _

           "già esiste." & vbNewLine & _

           "ok per rinominare, annulla per sovrascrivere"

 strInfo2 = "il file:" & vbNewLine & _

           strFileName & vbNewLine & _

           "già esiste."

 Title = "Warning!"

 style = vbCritical + vbOKCancel

 style2 = vbCritical

 If FileExists(strFileName) Then

    If VBA.MsgBox(strInfo, style, Title) = vbOK Then

                justExtention = justExtentionFileName(Me.txtPath & Me.txtFile)

                Do While Len(Dir(strFileName)) > 0

                   strFileName = InputBox("nome del file:", "Inserisci il nome del file", , 12000, 7000)

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

                   If FileExists(strFileName) Then VBA.MsgBox strInfo2, style2, Title

                Loop

    End If

 End If

 strFile = strFileName

 FileCopy Me.txtNuovoNomeFile, strFileName

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

end sub

ciao, Sandro.

Ciao carissimo Sandro,

grazie in anticipo per la tua disponibilità :-)

*bisogna ripensare a tutto,*nooo :--((((

come hai impostato il tutto penso vada bene...

ho effettuato delle modifiche che troverai nel db e penso risponda meglio

Dalle prove effettuate lo scenario è il seguente:

1.       nella cartella/sottocartella non è presente nessun file e pertanto carico il file ed è tutto ok

2.       nella cartella/sottocartella sono presenti i files caricati in passato

a.     carico il file e mantengo lo stesso nome

b.     copio il file e, se il file è già presente, esce il messaggio che viene copiato con percorso\copia di (i) nome file ... con il problema però che il txtNuovoNomeFile non viene aggiornato e pertanto nel record, in fase di inserimento, viene inserito il vecchio nome con problemi nella fase successiva di ricerca.

Faccio un esempio:

il file è già presente nella cartella/sottocartella

nome file caricato: primo.txt

voglio mantenere nome file (si)  e pertanto viene scritto in txtFileNuovoNome primo.txt

copio il file: viene copiato con copia (1) primo.txt e pertanto successivamente al click inserimento viene inserito il txtNuovoNomeFile che non corrisponde a copia (1) primo.txt ma a primo.txt

con problemi successivi in fase di ricerca

Si potrebbe far uscire, invece che copiare direttamente, un msgbox in fase di copia, al posto di copiare e creare tanti file “copia (1)”:

il nome del file esiste già nella cartella/sottocategoria!!!

vuoi rinominarlo o sostituire?

Se rinomina: dovrebbe uscire una piccola finestra ed inserire il nome del nuovo file e su ok scriverlo in txtFileNuovoNome e chiudere

Se sostituire: lascia il nome inserito su txtNuovoNomeFile e sostituisce il file nella cartella/sottocartella presente

Allego il mio file http://1drv.ms/1NrE2uB

Ho provato ma la mia testa è in fumo

Grazie davvero Sandro, speriamo di farcela

ciao NebbiaDB,

lo stato dell'arte è questo.

carichi un file, ed in quella sede hai la possibilità di scegliere se rinominarlo o meno.

Se si, la routine ti chiede il nome del file finchè non assegni un nome non già esistente.

hai poi la possibilità di copiare il file in un percorso diverso. Se il file nel nuovo percorso esiste un messaggio te lo segnale anteponendo il prefisso copia di (n) + nome file e procedi con la copia.

Ci siamo mossi finora in questa direzione, se non è corretto, bisogna ripensare a tutto.

questo il db : http://1drv.ms/1S6SHlB  20012016-2.accdb.

ciao, Sandro.

mmm.... allora il file devo rinominarlo all'interno della finestra quando carico il file?

e di conseguenza eliminare la msgbox

Dim iRisposta As Integer

iRisposta = MsgBox("Vuoi modificare il nome del file ???", vbYesNoCancel)

Select Case iRisposta  'impostiamo il Select Case con riferimento al messaggio restituito dalla variabile iRisposta

Case vbYes                'se risponderemo "Si" :

     Me.txtNuovoNomeFile.SetFocus

     Me.txtNuovoNomeFile.BackColor = vbRed

Case vbNo                  'se sceglieremo "No":

      Me.txtNuovoNomeFile = Me.txtFile

      Exit Sub

Case Else

End Select

o meglio su cmdCopiafile dovrebbe copiare il txtNuovoNomeFile al posto di txtFIle?

Grazie ancora