EXCLUIR PASTA

CAIO.FR.SP 22/03/2010 10:35:44
#337592
Galera qual é a sintaxe correta para mim apagar uma determinada pasta no vb. tente uma sintaxe aqui via filesystemobject mais nao deu certo da erro 91. alguem pode me ajudar
MKING 22/03/2010 11:20:10
#337595
use essa sintaxe caso a pasta esteja vazia
RmDir [Ô]c:\seu_caminho\pasta_a_excluir[Ô]

dependendo do q for fazer o ideal é checar se existe a pasta antes, ai deletar os arquivos e por ultimo a pasta, monta uma funçãozinha pra isso

espero ter ajudado
ERIVELTONVGA 22/03/2010 11:25:18
#337596
CAIO BOM DIA

Excluindo arquivos

Para excluir arquivos usamos o comando Kill , com a sintaxe:

Kill caminhonomedoarquivo

caminhonomedoarquivo - Refere-se a localização e o nome do arquivo que desejamos deletar.

O comando Kill suporta a utilização de máscaras como: * e ?. Assim podemos excluir varios arquivos de uma vez.

Exemplo:

Kill c:    este\arq1.txt

Exclui o arquivo arq1.txt do diretório c:    este

Kill *.txt

Exclui todos os arquivos com extensão txt do diretório atual.

Muito cuidado ao usar Kill , pois ele literalmente [ô]mata[ô] o seu arquivo , e não há como reverter a operação. (Os arquivos excluidos com Kill não vão para lixeira.)
CAIO.FR.SP 22/03/2010 11:31:03
#337597
a função que eu estava usando é a seguinte:

Dim fso As FileSystemObject
fso.DeleteFolder dir_origem.List(dir_origem.ListIndex)


existe alguma coisa errada nessa linha?

MKING, em relação a sua responta a pasta a ser apagada quase sempre vai conter arquivos, mas como posso verificar se existe ou nao alguma coisa nela?
ERIVELTONVGA 22/03/2010 11:48:35
#337600
caio leia este link do macorati

http://www.macoratti.net/file_vb.htm

espero ter ajudado
MKING 22/03/2010 11:50:04
#337601
If Dir([Ô]c:\seu_caminho\pasta_a_excluir\*.*[Ô]) <> [Ô][Ô] Then [ô]verifica se contem arquivos na pasta
msgbox [Ô]Contem arquivos[Ô]
Kill [Ô]c:\seu_caminho\pasta_a_excluir\\*.*[Ô] [ô]exclui os arquivos da pasta
Else
msgbox [Ô]Não contem arquivos[Ô]
End If
CAIO.FR.SP 26/03/2010 10:06:05
#337955
Galera ainda continuo com dificuldades, qdo vou copiar ou mover uma pasta que contem arquivos, da erro, e so copia a pasta vazia.
Qdo vou excluir uma pasta se ela tiver arquivos tbm nao exclui.
ou posta o codigo que estou usando para vcs verem se esta certo.

[txt-color=#e80000]Formulas no modulo[/txt-color]

Function CopiaArquivo(orig As String, dest As String) As Boolean
    On Error GoTo erro
    FileCopy orig, dest
    CopiaArquivo = True
    Exit Function
erro:
    Select Case Err.Number
        Case Is = 53
            MsgBox [Ô]O arquivo [Ô] & orig & [Ô] não foi encontrado[Ô], vbCritical, App.EXEName
        Case Is = 58
            MsgBox [Ô]O arquivo [Ô] & dest & [Ô] já existe[Ô], vbCritical, App.EXEName
        Case Else
            MsgBox [Ô]Ocorreu o erro :[Ô] & Err.Number & [Ô] - [Ô] & Err.Description
    End Select
End Function

Function ExcluiArquivo(Arq As String) As Boolean
    On Error GoTo erro
    Kill Arq
    ExcluiArquivo = True
    Exit Function
erro:
    Select Case Err.Number
        Case Is = 53
            MsgBox [Ô]O arquivo [Ô] & Arq & [Ô] não foi encontrado[Ô], vbCritical, App.EXEName
        Case Else
            MsgBox [Ô]Ocorreu o erro :[Ô] & Err.Number & [Ô] - [Ô] & Err.Description
    End Select
End Function

Function CriaPasta(loc As String, nom As String) As Boolean
    On erro GoTo erro:
    MkDir loc & [Ô]\[Ô] & nom
    CriaPasta = True
    Exit Function
erro:
    Select Case Err.Number
        Case Is = 75
            MsgBox [Ô]A pasta [Ô] & loc & [Ô]\[Ô] & nome & [Ô] já existe[Ô], vbCritical, App.EXEName
        Case Is = 76
            MsgBox [Ô]A pasta [Ô] & loc & [Ô] não foi encontrada[Ô], vbCritical, App.EXEName
        Case Else
            MsgBox [Ô]Ocorreu o erro :[Ô] & Err.Number & [Ô] - [Ô] & Err.Description
    End Select
End Function

Function ExcluiPasta(past As String) As Boolean
    On erro GoTo erro:
    RmDir past
    ExcluiPasta = True
    Exit Function
erro:
    Select Case Err.Number
        Case Is = 75
            MsgBox [Ô]A pasta [Ô] & past & [Ô] não esta vazia[Ô], vbCritical, App.EXEName
        Case Is = 76
            MsgBox [Ô]A pasta [Ô] & past & [Ô] não foi encontrada[Ô], vbCritical, App.EXEName
        Case Else
            MsgBox [Ô]Ocorreu o erro :[Ô] & Err.Number & [Ô] - [Ô] & Err.Description
    End Select
End Function

Function PastaVazia(past As String) As Boolean
    On erro GoTo erro:
    If Dir(past & [Ô]\*.*[Ô]) <> [Ô][Ô] Then
        PastaVazia = False
    Else
        PastaVazia = True
    End If
    Exit Function
erro:
    Select Case Err.Number
        Case Is = 76
            MsgBox [Ô]A pasta [Ô] & past & [Ô] não foi encontrada[Ô], vbCritical, App.EXEName
        Case Else
            MsgBox [Ô]Ocorreu o erro :[Ô] & Err.Number & [Ô] - [Ô] & Err.Description
    End Select
End Function


[txt-color=#e80000]no form[/txt-color]

Private Sub cmd_copiar_Click()
    Dim orig As String, dest As String
    
    If dir_origem.List(dir_origem.ListIndex) = drv_origem.Drive Then Exit Sub
    If cmb_generos.Text = [Ô][Ô] Then Exit Sub
    
    orig = dir_origem.List(dir_origem.ListIndex)
    dest = pasta & [Ô]()[Ô] & cmb_generos.Text
    
    Call CriaPasta(dest, NomeArquivo(orig))
    Call CopiaArquivo(orig & [Ô]\*.*[Ô], dest & [Ô]\[Ô] & NomeArquivo(orig))
        
    dir_albums.Refresh
    
    Call CarregaAlbums
    Call CalculaEspacoemDestino
    
    MsgBox [Ô]Pasta Copiada[Ô], vbOKOnly, App.EXEName
End Sub

Private Sub cmd_mover_Click()
    Dim orig As String, dest As String
    
    If dir_origem.List(dir_origem.ListIndex) = drv_origem.Drive Then Exit Sub
    If cmb_generos.Text = [Ô][Ô] Then Exit Sub
    
    orig = dir_origem.List(dir_origem.ListIndex)
    dest = pasta & [Ô]()[Ô] & cmb_generos.Text
    
    Call CriaPasta(dest, NomeArquivo(orig))
    Call CopiaArquivo(orig & [Ô]\*.*[Ô], dest & [Ô]\[Ô] & NomeArquivo(orig))
    Call ExcluiArquivo(orig & [Ô]\*.*[Ô])
    Call ExcluiPasta(orig)
    
    dir_origem.Refresh
    
    Call CalculaEspacoemOrigem
    Call CarregaAlbums
    Call CalculaEspacoemDestino
    
    MsgBox [Ô]Pasta Copiada[Ô], vbOKOnly, App.EXEName
End Sub

Private Sub cmd_excluirpdestino_Click()
    Dim pst As String
    If lst_albums.ListCount = 0 Then Exit Sub
    If MsgBox([Ô]Deseja excluir o Album: [Ô] & lst_albums.List(lst_albums.ListIndex) & [Ô] ?[Ô], vbQuestion + vbYesNo, App.EXEName) = vbNo Then Exit Sub
    pst = pasta & [Ô]()[Ô] & cmb_generos.Text & [Ô]\[Ô] & lst_albums.List(lst_albums.ListIndex)
    If Not PastaVazia(pst) Then
        ExcluiArquivo (pst & [Ô]\*.*[Ô])
        ExcluiPasta (pst)
    Else
        ExcluiPasta (pst)
    End If
    MsgBox [Ô]Pasta excluida[Ô], vbInformation, App.EXEName
    dir_albums.Refresh
    Call CarregaAlbums
    Call CalculaEspacoemDestino
End Sub
CAIO.FR.SP 26/03/2010 10:19:24
#337957
o programa em anexo
CAIO.FR.SP 26/03/2010 16:11:09
#338001
Galera da uma força ai.

Ajuda ai com 2 funções, que eu vo tentando o resto:

as funções q estao me deixando doido sao:

copiar uma pasta e todo seu conteudo

e verificar se uma pasta esta vazia

ajuda ai por favvor
Tópico encerrado , respostas não são mais permitidas
Voltar