Modules |
5.66 Alune funzioni sulle directory |
Alessandro Baraldi |
Creare una nuova directory Per creare una nuova directory può essere usata la seguente funzione: Public Function MakeDir(DirPath As String) As Boolean On Error GoTo error MakeDir = False MkDir DirPath$ MakeDir = True Exit Function error: MsgBox Err.Description, vbExclamation, "Error" End Functiondove DirPath èuna variabile stringa che contiene il nome della directory da creare. La funzione restituisce il valore True o False a seconda che la creazione della nuova directory sia o meno andata a buon fine. Cancellazione di una directory Per cancellare una directory può essere usata la seguente sub: Public Sub DeleteDir(DirPath As String) On Error GoTo error RmDir DirPath$ Exit Sub error: MsgBox Err.Description, vbExclamation, "Error" End Subdove DirPath è una variabile stringa che contiene il nome della directory da cancellare. Cancellare tutti i file contenuti in una directory ed eventalmente anche la directory stessa Con la sub che segue è possibile concellare tutti i file contenuti in una directori e dopo, se richiesto, cancellare anche la directory stessa: Public Sub DelFilesInDir(DirPath As String, DelDir As Boolean) On Error GoTo error Kill DirPath$ & "\*.*" Del_Dir: If DelDir = True Then RmDir DirPath$ End If Exit Sub error: If Err.Number = 53 Then Resume Del_Dir MsgBox Err.Number & " " & Err.Description, vbExclamation, "Error" End Subdove DirPath è il nome della directory e DelDir è una variabile booleana che deve assumere il valore True nel caso si voglia cancellare anche la directory e il vaolre False in caso contrario. |