La ricorsività è un\'altra cosa.
Credo sia più semplice, a partire dal primo loop dove scrorri i file PDF, verificare l\'esistenza del file TIF nella directory B in questo modo:
vTemp = Split("\", fileChiave)
fileName = vTemp(Ubound(vTemp))
vTemp = Split(".", fileName)
fileName = vTemp(0) + ".tif"
tifFileFullPath = pathDirectoryB + "\" + fileName
If Trim(Dir$(tifFileFullPath)) = "" Then
Print "Il file TIF relativo a " + fileChiave + " non esiste."
Else
Print "Il file TIF relativo a " + fileChiave + " esiste".
End If
Non serve scorrere tutta la directory B per verificare se il file esiste.
Se alla Dir$() passi un percorso + nome file, anziché solo un percorso, ti ritorna "" (blank) se il file non esiste.
Ciao
Massimo Nadalin | Devangarde
|