Rinominare un file con VBA

[Armando Barchetti News]

Salve a tutti!

Cortesemente vorrei sapere se è possibile rinominare un file (PDF) con un
comando VBA da access

Grazie!!

[ALESSANDRO Baraldi]

Post by Armando Barchetti News
Salve a tutti!
Cortesemente vorrei sapere se è possibile rinominare un file (PDF) con un
comando VBA da access
Grazie!!

Istruzione Name

Ciao

[Sandro]

Post by Armando Barchetti News
Salve a tutti!
Cortesemente vorrei sapere se è possibile rinominare un file (PDF) con un
comando VBA da access
Grazie!!

Ciao Armando prova cosi:

dim nomevecchio,nomenuovo as string

nomevecchio ="c:\tuopath\nomefile.pdf"
nomenuovo ="c:\tuopath\nomenuovofile.pdf"

name nomevecchio as nomenuovo
Ciao

[Sandro]

Post by Sandro

Post by Armando Barchetti News
Salve a tutti!
Cortesemente vorrei sapere se è possibile rinominare un file (PDF) con un
comando VBA da access
Grazie!!

dim nomevecchio,nomenuovo as string
nomevecchio ="c:\tuopath\nomefile.pdf"
nomenuovo ="c:\tuopath\nomenuovofile.pdf"
name nomevecchio as nomenuovo
Ciao

ooops ho visto in ritardo il reply di @Alex.
Mai avrei risposto !!
Ciao.

[Armando Barchetti News]

Funziona benissimo

Grazie di tutto!!

Post by Armando Barchetti News
Salve a tutti!
Cortesemente vorrei sapere se è possibile rinominare un file (PDF) con un
comando VBA da access
Grazie!!

[Andrea Pettenon]

Post by Armando Barchetti News
Funziona benissimo
Grazie di tutto!!

Post by Armando Barchetti News
Salve a tutti!
Cortesemente vorrei sapere se è possibile rinominare un file (PDF) con un
comando VBA da access
Grazie!!

Ciao ho ripreso questo thread perchè ho modificato il codice in questo modo per ciò che serve a me:

Dim nomevecchio As String
Dim nomenuovo As String
'nomevecchio = Forms!tbl_percorso_file_pdf!percorso_bolle & "\" & "\prova*.pdf"
nomevecchio = "M:\GestioneTrasporti\2017\Bolle2017\prova001123.pdf"
nomenuovo = Forms!tbl_percorso_file_pdf!percorso_bolle & "\" & Me.IDBolla & ".pdf"
Name nomevecchio As nomenuovo

In questo modo funziona ma io devo modificare la prima riga "nomevecchio = Forms!...ecc " con il nome del file che inizia con "prova" ma poi non conosco i caratteri successivi che avrà il file (sarà solo 1 il file presente nella cartella con la parte iniziale "prova" e ho provato a usare i caratteri jolly del dos ma non funziona. Come faccio?

Grazie

Andrea

[Andrea Pettenon]

Post by Armando Barchetti News
Funziona benissimo
Grazie di tutto!!

Post by Armando Barchetti News
Salve a tutti!
Cortesemente vorrei sapere se è possibile rinominare un file (PDF) con un
comando VBA da access
Grazie!!

Ciao ho ripreso questo thread perchè ho modificato il codice in questo modo per ciò che serve a me:

Dim nomevecchio As String
Dim nomenuovo As String
'nomevecchio = Forms!tbl_percorso_file_pdf!percorso_bolle & "\" & "\prova*.pdf"
nomevecchio = "M:\GestioneTrasporti\2017\Bolle2017\prova001123.pdf"
nomenuovo = Forms!tbl_percorso_file_pdf!percorso_bolle & "\" & Me.IDBolla & ".pdf"
Name nomevecchio As nomenuovo

In questo modo funziona ma io devo modificare la prima riga "nomevecchio = Forms!...ecc " con il nome del file che inizia con "prova" ma poi non conosco i caratteri successivi che avrà il file (sarà solo 1 il file presente nella cartella) con la parte iniziale "prova" e ho provato a usare i caratteri jolly del dos ma non funziona. Come faccio?

Grazie

Andrea

[@Alex]

Quell'istruzione rinomina un file in un'altro... Non ci possono essere dubbi sui 2 Nomi... ed il Jolly non ha assolutamente nulla a che vedere con questa istruzione.

Se non sai il nome iniziale... prima devi identificarlo... i nomi dei file sono Univoci nella stessa Path... quindi solo 1 potrà essere rinominato.

Spiega bene cosa devi fare perché vengono più dubbi che certezze...

@Alex

[Andrea Pettenon]

Post by @Alex
Quell'istruzione rinomina un file in un'altro... Non ci possono essere dubbi sui 2 Nomi... ed il Jolly non ha assolutamente nulla a che vedere con questa istruzione.
Se non sai il nome iniziale... prima devi identificarlo... i nomi dei file sono Univoci nella stessa Path... quindi solo 1 potrà essere rinominato.
Spiega bene cosa devi fare perché vengono più dubbi che certezze...
@Alex

devo rinominare il file che viene creato da scansione- Il file viene salvato nella cartella con il nome progressivo che dà lo scanner il quale ha la parte iniziale del nome file sempre uguale e cambia la parte finale del file. Io voglio prendere questo file e rinominarlo con il mio IDBolla che ho nella maschera.

Andrea

[@Alex]

allora prima devi ricavare il nome del file completo... poi puoi rinominarlo.
Per trovare il nome ti basta scansionare il Path e, se sei sicuro ci sia solo 1 file sei a posto...

NomeFile = Dir(Path)


@Alex

[Andrea Pettenon]

Post by @Alex
allora prima devi ricavare il nome del file completo... poi puoi rinominarlo.
Per trovare il nome ti basta scansionare il Path e, se sei sicuro ci sia solo 1 file sei a posto...
NomeFile = Dir(Path)
@Alex

No in questa cartella ci sono tutti i file rinominati a mano.
Allora mi consiglieresti di fare la scansione su una cartella temporanea e una volta rinominato il file nella mia cartella eliminare questo file nella cartella temporanea in modo che sia sempre vuota.
Puoi aiutarmi col codice da scrivere?
Grazie

Andrea

[Andrea Pettenon]

Post by Andrea Pettenon

Post by @Alex
allora prima devi ricavare il nome del file completo... poi puoi rinominarlo.
Per trovare il nome ti basta scansionare il Path e, se sei sicuro ci sia solo 1 file sei a posto...
NomeFile = Dir(Path)
@Alex

No in questa cartella ci sono tutti i file rinominati a mano.
Allora mi consiglieresti di fare la scansione su una cartella temporanea e una volta rinominato il file nella mia cartella eliminare questo file nella cartella temporanea in modo che sia sempre vuota.
Puoi aiutarmi col codice da scrivere?
Grazie
Andrea

Ho trovato la soluzione:
Dim NomeFile as String
NomeFile = Dir("M:\GestioneTrasporti\ScanTemp\") 'percorso per individuare l'unico file presente in cartella
Name "M:\GestioneTrasporti\ScanTemp\" & NomeFile As "M:\GestioneTrasporti\2017\Bolle\" & Me.IDBolla & ".pdf" 'taglia&incolla il file rinominato

[Andrea Pettenon]

Post by @Alex
allora prima devi ricavare il nome del file completo... poi puoi rinominarlo.
Per trovare il nome ti basta scansionare il Path e, se sei sicuro ci sia solo 1 file sei a posto...
NomeFile = Dir(Path)
@Alex

No in questa cartella ci sono tutti i file rinominati a mano. A questo punto mi consiglieresti di cambiare percorso alla scansione in una cartella temporanea nella quale ci sarà solo 1 file, rinominarlo salvarlo nella cartella dove sono tutti i pdf archiviati e completare l'opera con la cancellazione del file creato dallo scanner in modo che la cartella temporanea sia di nuovo vuota.
Puoi aiutarmi con il codice?
Grazie mille
Andrea