ARQUIVO OCULTO

USUARIO.EXCLUIDOS 27/07/2005 14:01:42
#96227
Eu estou fazendo um aplicativo que le todos arquivos do hd, + eu nao sei como ler os arquivos ocultos...
alguem sabe como eu faço para ler arquivos ocultos??
RENATOFRAZZATO 27/07/2005 14:10:54
#96229
mude o atributo dos aruivo ocultos, SetAttr Caminho, vbNormal.
PAULOHSV 27/07/2005 14:14:51
#96230
Da uma olhada aqui e junto com a dica do Renato o seu problema pode ser resolvido
PAULOHSV 27/07/2005 14:22:45
#96233
Voce pode criar uma Bat no DOS que tire os atributos de todos os arquivos para vc antes de vc fazer a procura.Ex: abra o DOS e digite Edit atributos.bat digite attrib -h -r -s e salve depois do DOS mesmo vc chama a sua bat atributos.

Segue as opções que vc tem:

+R
Define o atributo Somente para Leitura para o arquivo.

-R
Remove o atributo Somente para Leitura do arquivo.

+A
Define o atributo Arquivo para o arquivo.

-A
Remove o atributo Arquivo do arquivo.

+S
Define o arquivo como um arquivo de Sistema.

-S
Remove o atributo Sistema do arquivo.

+H
Define o arquivo como um arquivo Oculto.

-H
Remove o atributo Oculto do arquivo.

/S
Processa os arquivos do diretório atual e todos seus subdiretórios.

Depois pelo VB vc pode chamar a Bat e rodar seu aplicativo em seguida
USUARIO.EXCLUIDOS 27/07/2005 15:25:53
#96244
vlws galera brigadao,,,,,,mas nao eh bem isso ,

vejam sabe quando usamos o dir, e
do while true
arquivo = dir
msg arquivo
if arquivo = "" then exit do
loop

entao ele mostra todos os arquivos do diretorio citado, mas nao os ocultos,e eu kero mostrar os ocultos, vlws pauloh, mas eu tenho q fazer td em vb, meu chefe qeh assim.
WHELLNET 27/07/2005 15:48:03
#96247
Tenta assim Saga_Fuel

arquivo = Dir("C:\*.txt", vbHidden + vbReadOnly + vbSystem + vbNormal)
do while true
arquivo = dir
msg arquivo
if arquivo  = "" then exit do
loop
WEBMASTER 28/07/2005 12:49:08
#96405
O código para filtrar os atributos é determinado através de qual tipo de atributo você quer ver (vbHidden + vbNormal determina arquivos comuns e ocultos).

Veja abaixo:

Sub teste()
Dim Retorno As String
Retorno = Dir("c:\*.*", vbHidden + vbNormal)
  Do While True
   Retorno = Dir
   Debug.Print Retorno & IIf(GetAttr("c:\" & Retorno) = vbHidden, " (Oculto)", " (Normal)")
   If Retorno = "" Then Exit Do
  Loop
End Sub


Aqui está a lista de saída deste teste no meu computador:

CONFIG.SYS (Oculto)
AUTOEXEC.BAT (Normal)
schema.ini (Normal)
IPXP.BAT (Normal)
MIS405.txt (Normal)
SMS.NEW (Oculto)
SMS.INI (Oculto)
IP.TXT (Normal)
pendencias_tsu.txt (Normal)
INSTALL.LOG (Normal)
Tópico encerrado , respostas não são mais permitidas
Voltar