|
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 Function
dove 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 Sub
dove 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 Sub
dove 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.
|