Acquista i nostri libri consigliati su Amazon.it
+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 7 su 7

rinominare file

  1. #1
    undertaker non  in linea Scolaretto
    Buonasera, avrei la necessita' di rinominare un file, nel caso specifico una foto.
    Sub Associafoto(lngID As Long, strTipo As String)
    Dim fDialog As Object
    Dim varFile As Variant
    Dim strFile As String
        On Error GoTo Fine
        ' richiede il riferimento alla libreria Microsoft Office 11.0 Object Library.
        ' imposta la finestra di dialogo.
        Set fDialog = Application.FileDialog(1)
        With fDialog
            .AllowMultiSelect = False
            .Title = "Selezionare un file"
            .Filters.Clear
            .Filters.Add "File immagine, File Pdf", "*.jpg, *.pdf"
            If .Show = True Then
                For Each varFile In .SelectedItems
                    If Right(varFile, 3) = "jpg" Then
                        FileCopy varFile, strPercorso & "foto\" & lngID & strTipo & ".jpg"
                    ElseIf Right(varFile, 3) = "pdf" Then
                        FileCopy varFile, strPercorso & "foto\" & lngID & strTipo & ".pdf"
                    End If
                Next
            End If
        End With
        Exit Sub
        
    Fine:
        MsgBox "Si  verificato un errore", vbInformation
    End Sub
    
    tutto funziona ma mi crea una copia della foto rinominandola con il nome ID del recod, quello che mi occorre che la foto stessa venisse rinominata ma non creare una copia.


    INoltre vorrei che una volta selezionata la foto venisse subito visionata.
    Private Sub Form_Current()
    On Error GoTo 10
    mdir = CurrentProject.Path
    mpat = mdir & "\foto\" & Me.ID_Esercizio.Value & ".jpg"
    Me.Image10.Picture = mpat
    GoTo 20
    
    10 'Foto non trovata
    mdir = CurrentProject.Path
    mpat = mdir & "\foto\" & "noimage.jpg"
    Me.Image10.Picture = mpat
    20 'Ok
    End Sub
    
    con questo codice mi associa la foto ma quando la aggiungo non la fa vedere nell'immediato.
    GRAZIE

  2. #2
    L'avatar di @Alex
    @Alex non  in linea Moderatore Globale
    Scusa ma hai usato FileCopy cosa puoi aspettarti se non una copia...?
    Usa la funzione NAME

    Name OldName As NewName
    
    Una domanda per volta nel forum... se non sono attinenti al medesimo problema tecnico sono 2 domande separate.
    Ultima modifica di @Alex; 27-12-2018 00:22 
    ℹ️ Leggi di pi su @Alex ...

  3. #3
    L'avatar di muttley005
    muttley005 non  in linea Topo di biblioteca
    Tendo a pensare che undertaker abbia preso di sana pianta un codice e copiato senza sapere nulla di ci che significa perch altrimenti la domanda non avrebbe senso ... sbaglio?

  4. #4
    L'avatar di @Alex
    @Alex non  in linea Moderatore Globale
    Quote Originariamente inviato da muttley005 Visualizza il messaggio
    Tendo a pensare che undertaker abbia preso di sana pianta un codice e copiato senza sapere nulla di ci che significa perch altrimenti la domanda non avrebbe senso ... sbaglio?
    Sicuramente, ne conferma il fatto che il ciclo tra gli ITEMS della collection [SelectedItems] non ha alcun senso dal momento che la propriet AllowMultiSelect =False, quindi sar valorizzato solo l'Item di indice 0.
    ℹ️ Leggi di pi su @Alex ...

  5. #5
    CarlettoFed non  in linea Scolaretto
    In questo caso l'indice 1 e non 0, che causerebbe errore (Chiamata di routine o argomento non validi) in esecuzione.

  6. #6
    L'avatar di @Alex
    @Alex non  in linea Moderatore Globale
    Quote Originariamente inviato da CarlettoFed Visualizza il messaggio
    In questo caso l'indice 1 e non 0, che causerebbe errore (Chiamata di routine o argomento non validi) in esecuzione.
    Grazie della correzione fondamentale.
    ℹ️ Leggi di pi su @Alex ...

  7. #7
    undertaker non  in linea Scolaretto
    risolto cosi:
    oldname = varFile: newname = lngID & ".jpg" ' definisce vecchio e nuovo nome file
                Name oldname As newname ' Rinomina file.
    
    grazie a tutti

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Come rinominare un file in VBA?
    Da il Fenomeno nel forum Microsoft Access
    Risposte: 2
    Ultimo Post: 04-01-2013, 19:17
  2. Rinominare file
    Da Sergran nel forum Microsoft Word
    Risposte: 4
    Ultimo Post: 17-11-2010, 17:58
  3. [C/C++] Rinominare un file
    Da simone_tiezza nel forum C/C++
    Risposte: 12
    Ultimo Post: 16-05-2008, 19:37
  4. Rinominare file su FTP
    Da Windows M nel forum C#
    Risposte: 0
    Ultimo Post: 06-04-2008, 20:02
  5. Copiare file e rinominare
    Da Raffaele1978 nel forum Visual Basic 6
    Risposte: 2
    Ultimo Post: 15-02-2005, 09:57