controllo presenza file

Hai un problema con Excel?

Nuova discussione

controllo presenza file
di nichicanta (utente non iscritto) data: 17/04/2013 14:52:01
Amici del forum sono riuscito in parte a risolvere la mia problematica, vorrei che fossero confrontati (due elenchi di file con stessa estensione e stesso nome) che si trovano uno in un range di celle sul foglio di lavoro attivo e l'altro in una cartella chiamata con un nome a piacere, al fine di essere avvertiti dei file che non sono presenti nella cartella dove vengono salvati, in formato pdf i file in argomento).
Vi saluto e Vi ringrazio

Sub elencoFile()
Dim percorso As String, tipo As String, fileDaTrovare As String, elenco As String
Dim elencoFile As String
percorso = "C:Documents and SettingsxxxxxDesktopOTTOBRE 2012" '<=== da cambiare ovviamente
tipo = "*.pdf"
fileDaTrovare = percorso & tipo ' qui potresti anche mettere il nome file con estensione
If Dir(fileDaTrovare) = "" Then
MsgBox "File: " & fileDaTrovare & " (non presenti)"
Exit Sub
End If
fileDaTrovare = Dir(percorso & tipo)
Do While fileDaTrovare <> ""
If fileDaTrovare <> "" Then
MsgBox ("Trovato " & fileDaTrovare)
End If
fileDaTrovare = Dir
Loop
MsgBox (fileDaTrovare)
End Sub

di Vecchio Frac data: 19/04/2013 18:41:19
Abbiamo già risolto in passato problemi di confronto tra elenchi,m prova a fare una ricerca nelle discussioni.
di nichicanta (utente non iscritto) data: 20/04/2013 17:19:46
Grazie Vecchio Frac provo e ti faccio sapere.

Vuoi Approfondire?