Mostrar pastas ocultas num listbox!

[POLACK 0]

Galera é o seguinte o scorpio, me ajudou resolver um problemão uns dias atrás agora me deparei com outro parecido é o seguinte, to carregando todas as pasta de um determindo diretorio, e o botão "ocultar", esconde a pasta selecionada, porem não consigo fazer ela voltar, vou postar os códigos pra você analisarem.

 

Private Sub CmdOcultar_Click()

Dim Pasta As String

Pasta = "local da pasta"

SetAttr Pasta, vbHidden

 

End Sub

 

Private Sub CmdMostrar_Click()

'mostrar a pasta oculta, ou seja fazer a pasta deixar de ser oculta

Pasta = Text1.Text

SetAttr Pasta, vbNormal

Set objFSO = CreateObject("Scripting.FileSystemObject")

'objFSO Pasta & ".{21EC2020-3AEA-1069-A2DD-08002B30309D}", Pasta

objFSO.MoveFolder Pasta & Control_P, Pasta

 

End Sub

 

Private Sub CmdSair_Click()

Unload Me

 

End Sub

 

Private Sub Dir1_Change()

Text1.Text = Dir1.Path

'código enviado pelo scorpio

'to tentando fazr alterações nesse código para que ele mostre também as pastas ocultas

'alguem sabe como fazer isso?

List1.Clear

For i = 0 To Dir1.ListCount - 1

X = Dir1.List(i)

While (InStr(1, X, "\") > 0)

X = Mid(X, InStr(1, X, "\") + 1, Len(X) - InStr(1, X, "\"))

Wend

List1.AddItem X

Next

 

End Sub

 

Private Sub Form_Load()

Dir1.Path = App.Path & "\musicas"

 

End Sub

 

Private Sub List1_Click()

Text1.Text = Dir1.Path & "\" & List1.Text

End Sub

 

vou ficar tentando aqui qlq coisa eu posto ai pra vcs.

[scorpio 7]

Você quer listar as pastas ocultas?

Se for isso procure por FindNextFile/FindFirstFile.

 

Aqui vai um link: http://www.ex-designz.net/apidetail.asp?api_id=121

 

 

Se não for isso não entendi você.

[POLACK 0]

Isso mesmo, quero listar as pastas ocultas de um determinado diretorio num listbox.

 

o codigo abaixo lista as pastas que não são ocultas,

num listbox, quero acrescentar algo para que mostre também as pastas ocultas.

 

List1.Clear

For i = 0 To Dir1.ListCount - 1

X = Dir1.List(i)

While (InStr(1, X, "\") > 0)

X = Mid(X, InStr(1, X, "\") + 1, Len(X) - InStr(1, X, "\"))

Wend

List1.AddItem X

Next

Obs. "Código enviado por scorpio"

 

O link que me enviou funcinou, más mostra arquivos e não as pastas.

 

fico no aguardo.

mais uma vez obrigado