USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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
 


CyberWEB Network Ltda.    © Copyright 2000-2020   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página