- Codice: Seleziona tutto
Sub CREA_CARTELLE_POS()
Dim Indirizzo As String
Dim NomeCartella As String
UE = Worksheets("Foglio2").Range("A" & Rows.Count).End(xlUp).Row
ChDrive "C"
Range(Cells(2, 4), Cells(UE, 4)).ClearContents ' inserita ripulitura colonna "D"
For IE = 2 To UE
Indirizzo = Range("a" & IE).Value
NomeCartella = Range("b" & IE).Value
If Dir(Indirizzo & NomeCartella, vbDirectory) = "" Then
On Error GoTo Errore
MkDir (Indirizzo & NomeCartella)
Range("D" & IE).Value = "OK"
Continua:
End If
If Range("D" & IE).Value = "" Then Range("D" & IE).Value = "KO" ' Inserito ulteriore Range
Next IE
On Error GoTo 0
Exit Sub
Errore:
Range("D" & IE).Value = "KO"
Resume Continua 'Sostituito GoTo con Resume
End Sub
Il problema della restituzione del valore "KO" per le cartelle già esistenti si è risolto.
Permangono due anomalie:
1 - Se uno dei percorsi non esiste ed in tutti gli altri percorsi elencati nella colonna A, esiste già una cartella denominata come richiesto nella colonna B, la macro restituisce errore in corrispondenza del percorso che non esiste (la macro funziona invece sino alla fine se almeno in uno dei percorsi riesce a creare la cartella desiderata).
2 - Se il percorso che non esiste è il primo della lista la macro restituisce subito errore.
Sono certo che ce la faremo!!!!
Grazie ancora per la dedizione.
