|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Arquivos/Diretórios)
|
|
 |
Título da Dica: Apagar arquivos e diretorios
|
 |
|
|
|
Postada em 16/9/2002 por THIAGO GODOY
E necessário um filelist driver e um progressbar
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Public Function apaga_pasta(ByVal caminho_diretorio As String)
Dim i As Integer
Dim byt_Nivel_Diretorio As Byte
Retorna_Diretorio_Principal:
'Caminho do Diretorio Atual a ser Removido
Dir1.Path = caminho_diretorio
Repeti_For:
Prg_1.Max = IIf(Dir1.ListCount = 0, 1, Dir1.ListCount)
Prg_1.Min = 0
'Exclui Arquivos
For i = 0 To Dir1.ListCount - 1
Prg_1.Value = i
Dir1.Path = Dir1.List(i)
If Dir1.ListCount > 0 Then
GoTo Repeti_For:
Else
Debug.Print Dir1.Path & "/*"
If File1.ListCount > 0 Then Kill Dir1.Path & "/*"
RmDir (Dir1.Path)
GoTo Retorna_Diretorio_Principal:
End If
Next i
If File1.ListCount > 0 Then Kill Dir1.Path & "/*"
RmDir (Dir1.Path)
End Function
|
|
|
|
|
