codice vba per modificare il nome del file

ciao NebbiaDB,

nel seguente modo rinomini il file selezionato mantenendo lo stesso percorso.

Modifica il modulo di classe della form in questo modo, in testata:

Option Compare Database

Option Explicit

Dim bool As Boolean

consiglio nuovamente SEMPRE l'option explicit.

modifica la routine di richiesta file in questo modo, ti lascio dei commenti a tal proposito :

Private Sub cmdFile_Click()

Dim lngSlashPos As Long

Dim fullPath    As String

fullPath = cmdFileDialog

If Len(fullPath & vbNullString) = 0 Then Exit Sub

lngSlashPos = InStrRev(fullPath, "")

Me.txtPath = Mid$(fullPath, 1, lngSlashPos)

Me.txtFile = justFileName(fullPath)

'Me.Recalc  non serve

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 = vbNullString  ' aggiunta

     Me.txtNuovoNomeFile.SetFocus

     Me.txtNuovoNomeFile.BackColor = vbRed

Case vbNo                  'se sceglieremo "No":

      Me.txtNuovoNomeFile = Me.txtFile

      'Exit Sub non serve

'Case Else  non serve

End Select

bool = True

End Sub

inserisci questo evento su before update del controllo txtNuovoNomeFile :

Private Sub txtNuovoNomeFile_BeforeUpdate(Cancel As Integer)

If bool Then

    If FileExists(Me.txtPath & Me.txtNuovoNomeFile) Then

         VBA.MsgBox Me.txtPath & Me.txtNuovoNomeFile & vbNewLine & _

                    " esiste già assegna un altro nome!", vbCritical, "Warning"

        Cancel = True

    Else

        Name Me.txtPath & Me.txtFile As Me.txtPath & Me.txtNuovoNomeFile

        Me.txtNuovoNomeFile.BackColor = vbWhite

        VBA.MsgBox "Ho rinominato :" & vbNewLine & _

                    Me.txtPath & Me.txtFile & vbNewLine & _

                    " così:" & vbNewLine & _

                    Me.txtPath & Me.txtNuovoNomeFile, vbInformation

        bool = False

    End If

End If

End Sub

effettua qualche tentativo e vedi se il file viene rinominato correttamente ed il comportamento della form è quello voluto.

nel rinominare il file per ora scrivi anche l'estensione...per scrivere solo il nome del file ed in seguito rinominarlo anche con l'estensione è un attimo...

vedi se intanto ci siamo....

Ciao, Sandro.

Ciao carissimo Sandro,

provo a ripostare il file in quanto mi sto incartando alla grande, con la speranza di uscirne fuori :-) http://1drv.ms/1SwgZXy

Cerco di ricapitolare cercando salvezza :-)))

Come postato in precedenza i files vengono caricati da un pulsante cmdFile inserendo il nome del percorso in txtPAth ed il nome del file in txtFile e fin qui tutto ok

ho inserito una msgbox che chiede se voler modificare il nome del file.

Se si: setfocus su txtNuovoNomeFile e scrivo il nuovo nome

se No: copia il txtFile nel controllo txtNuovoNomeFile

ho creato un altro controllo txtNuovoPercoso dove viene riportato il nuovo percorso, su click cmdCopyFiles3, andando appunto a crearlo con myPath & Me.txtCategoria & "" & Me.txtSottocategoria & ""

Grazie ancora

ciao NebbiaDB,

[...]

che fatica povero me dove sono finito... non posso arrendermi adesso...

[...]

io invece mi diverto sempre un sacco....!! :-DDDDD

[...]

 in fase di inserimento se il file è gia presente esce un errore runtime 58 file già esistente

[...]

certo era una domanda retorica...il messaggio velato era...cosa fai...? ipotizzo...chiedo il nuovo nome fino a che non un nome non esistente.

se così :

nel modulo di classe della tua form appena sotto option compare database scrivi :

Dim justExtention As String

rivedi la funzione per l'estrazione della sola estensione in questo modo :

Public Function justExtentionFileName(ByVal strFullPath As String) As String

justExtentionFileName = Mid$(strFullPath, InStrRev(strFullPath, "."), Len(strFullPath))

End Function

rivedi la gestione della copia via command button in questo modo :

private Sub cmdCopyFiles3_Click()

If Not FileExists(Me.txtPath & Me.txtFile) Then

    VBA.MsgBox Me.txtPath & Me.txtFile & vbNewLine & _

                "File inesistente!", vbCritical, "warning"

    Exit Sub

End If

Me.txtNuovoNomeFile = Me.txtNuovoNomeFile & justExtention

Name Me.txtPath & Me.txtFile As Me.txtPath & Me.txtNuovoNomeFile

If FileExists(Me.txtPath & Me.txtNuovoNomeFile) Then

     VBA.MsgBox "file rinominato correttamente", vbInformation, "Info"

 Else

     VBA.MsgBox "file non rinominato correttamente", vbCritical, "Attenzione"

 End If

End Sub

ed inserisci nell'evento before update del controllo in cui scrivi il nuovo nome del file questo :

Private Sub txtNuovoNomeFile_BeforeUpdate(Cancel As Integer)

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

If FileExists(Me.txtPath & Me.txtNuovoNomeFile & justExtention) Then

    VBA.MsgBox Me.txtPath & Me.txtNuovoNomeFile & vbNewLine & _

               " esiste già assegna un altro nome!", vbCritical, "Warning"

    Cancel = True

End If   

End Sub

[...]

Grazie ancora

[...]

prego.

Ciao, Sandro.

ciao Sandro

che fatica povero me dove sono finito... non posso arrendermi adesso...

ho provato e va quasi tutto bene:

• nel txtNuovoNomeFile  però non viene riportata l'estensione, utile successivamente per aprire i files attravero il pulsante

Private Sub CmdApriFile_Click()

On Error Resume Next

Application.FollowHyperlink Me.txtNuovoPercorso & Me.txtFile

If Err > 0 Then

   MsgBox "File non presente negli archivi", vbCritical

End If

On Error GoTo 0

End Sub

• in fase di inserimento se il file è gia presente esce un errore runtime 58 file già esistente

Grazie ancora