OBTENER LISTADO DE ARCHIVOS OCULTOS

[yasmany]

Hola a todos
Como puedo obtener el listado de los archivos q estan ocultos en un mensage
este es mi code

Código: Seleccionar todo

$search = FileFindFirstFile("g:\*.*")

$attrib = FileGetAttrib($search)
If @error Then
    MsgBox(4096,"Error", "No se puede obtener los atributos.")
    Exit
Else
    If StringInStr($attrib, "+h") Then
    MsgBox(4096,"", "Fichero oculto"&$attrib)

    EndIf
EndIf

quiero q me dé los nombres (NO EL NOMBRE DEL ATRIBUTO)
ALGUIEN podrá ayudarme
ZALU2

[BasicOs]

Hola
Si lo vas a hacer de esa manera:
El nombre de archivo va saliendo a medida que va pasando el bucle desde el primer archivo hasta el último. Hay un indice que se posiciona cada vez sobre un archivo el Next pasa al siguient, así pasando por todos. $file = FileFindNextFile($search)
$file tiene los nombres de los ficheros

te pego el código de ejemplo de FileFindFirstFile

; Shows the filenames of all files in the current directory.
$search = FileFindFirstFile("*.*")

; Check if the search was successful
If $search = -1 Then
MsgBox(0, "Error", "No files/directories matched the search pattern")
Exit
EndIf

While 1
$file = FileFindNextFile($search)
If @error Then ExitLoop

MsgBox(4096, "File:", $file)
WEnd

; Close the search handle
FileClose($search)

Salu22:)

[yasmany]

hola Bassicos GRACIAS por la ayuda...
Mi INTENCION es q me presente el nombre de los archivos ocultos en un mensaje
Podrian ayudarme de esa forma ??
zalu2

[BasicOs]

Hola, lo tienes hecho, solo hay que insertar tu código

aquí:

Código: Seleccionar todo

   If @error Then ExitLoop
    
    MsgBox(4096, "File:", $file)

que es donde saca un msg con el nombre del fichero,
o sea:
If atributo es oculto then
MsgBox(4096, "File:", $file)[/code]
Endif

Saludos

[yasmany]

HOLA basicoss DISCULPA mi ignorancia...pero casi no entiendo mi propio CODE esdecir voy probando a ver q me resulta y asi voy consiguiendo el ALGO q busco
mira de acuerdo lo q me digiste
CREO q asi queda el code..

Código: Seleccionar todo

$attrib = FileGetAttrib
	; Shows the filenames of all files in the current directory.
$search = FileFindFirstFile("*.*")

; Check if the search was successful
If $search = -1 Then
MsgBox(0, "Error", "No files/directories matched the search pattern")
Exit
EndIf

While 1
$file = FileFindNextFile($search)
If @error Then ExitLoop
If StringInStr($attrib, "+h") Then
MsgBox(4096, "File:", $file)
WEnd

; Close the search handle
FileClose($search)

denme otra manito
¿como debe quedar?

[Ximorro]

¿Has buscado bien en el foro? Esto me suena que ya está resuelto.

¡UN MOMENTO! Lo he buscado y efectivamente está preguntado y resuelto... ¡¡¡y lo preguntaste tú!!!
No es buen uso del foro preguntar cosas que ya se han resuelto, ¿pero preguntar cosas que ya has preguntado tú mismo?

No se llegó a publicar el código completo así que igual no lo hiciste, pero BasicOS te daba el código que había que insertar para comprobar el flag de oculto. Allí se escribía en un archivo, pero si la duda es cómo sacar un mensaje pues ya ves que puedes usar MsgBox para sacarlo en una ventana. También puedes usar ConsoleWrite si es un programa de consola.

[BasicOs]

Yasmani, el asunto es ayudarte a que comprendas esto y puedas gestionarlo, más que darte plantillas ya hechas que te van a valer de poco en un cambio que hagas.

Si lo deseas claro, CReo que debes intentarlo un poco más y hacer pruebas varias, también hay una ayuda en español para que comprendas cada comando como MSGbox() para que es,

Verás que la satisfaccion de decir que lo has hecho tu mismo te va a dar gusto, porque lo tienes ya hecho practicament

Salu22:)
PD: Realmente solo tienes que coger el ejemplo de la ayuda e ir modificando cada vez una cosa, PROBANDO CON CADA PEQUEÑO CAMBIO QUE VA BIEN:
por ejemplo
1.-poner el RESULTADO del atributo en otro msgbox para ver que hay dos atributos, y ---> probar que funciona
2.- luego poner un if para solo mostrar los que tienen hidden ----> probar que funciona
3.- por fin borrar los msgbox que sobran o retocarlos a tu manera para dar un mensaje.. ---> probar que funciona

Animo que está hecho ya solo!!

[yasmany]

Si... es cierto GRACIAS por lo dicho
En realidad cuando uno mismo lo hace ha base de sacrificio y dedicación (y malas noches) se SIENTE ORGULLOSO de lo q se ha logrado
gracias ......iré probando AUNQUE ME TOME DIAS aprender
ZALU2

[yasmany]

oigan COMO HAGO UNA CONDICION para UN ARCGIVO OCULTO
SERIA ASI

Código: Seleccionar todo

If StringInStr($attrib, "h") Then
    MsgBox(4096,"", $attrib)
    EndIf

O DE OTRA MANERA???

[BasicOs]

Al ejecutarlo lo compruebas no?

[Ximorro]

A ver, por favor, yasmany, si buscas en el foro con la caja de texto al efecto (ahí arriba a la derecha) por ejemplo "archivo oculto" primero sale esta entrada y la segunda ya es otra en la que se preguntaba lo mismo. (Las posiciones pueden cambiar si se ejecuta en otro momento, pero estará cerca)

Verás yasmany, en esa entrada un tal yasmany (¿te suena el nombre?) preguntaba LO MISMO. La única diferencia es que en vez de sacarlo en un mensaje lo quería escribir en un archivo, en realidad aquéllo era hasta más complicado.

Allí el tal yasmany ya recibió algunas indicaciones, no llegó a publicar el código final así que no sé qué hizo pero tampoco siguió el hilo así que lo habrá solucionado.
Bueno, pues allí, un tal BasicOS, cuyo nombre también te sonará, respondió entre otras cosas a esta pregunta de comprobar los atributos con una función más bien compleja que por ahora puedes ignorar, pero es que también te puso justamente este IF atributo que estás pidiendo.

Espero que no creas que no queremos ayudar, estamos aquí para eso y además lo hacemos por amor al arte, pero molesta un poco que:
1) No se busque en el foro la duda antes de preguntar, a veces ya se ha resuelto y se crean entradas repetidas y tenemos que contestar lo mismo una y otra vez
2) Un mismo usuario pregunte lo mismo en diferentes entradas ¿es que se obtiene más ayuda si tenemos que contestar en las dos?
3) Que no te hagan caso cuando has respondido a una duda, como si no se hubiera resuelto.

Tú has hecho las tres cosas.

[yasmany]

CHEKOK... hapues si lo compruebo pero no me funciona....bueno ya me da igual...ME ESTOY CANSANDO
tengo un puto ingeniero q ya me tiene (arto) PERO me las va ha pagar ,... CAERÁ tan ingnorantemente ..jajaj
ya os dejaré de molestarles VOLVERÉ luego..trataré por si solo...sería mejor HASTA q me (harte)... bueno si regreso OS PEDIRÉ AYUDA....
gracias a todos los q me ayudaron .
planificaré aLGO contra ese ingeniero...y la direccion del INSTITUTO...un software malicioso q elimine todo lo q puede ser valioso para ellos sin averiar el sistema
y asi cosas por el estilo.....POR Q EN REALIDAD esos manes SE CREEn q mucho saben....

CUANDO SE LOGRA ALGO POR EL PROPIO ESFUERZO ..ES UN GRAN PLACER Q SE SIENTE Y Q LOS PERDEDORES NO LO OBTIENEN
hasta la proxima carnales
SEGUIRÉ ESTUDIANDO ESTA MOVIDA Y OTRAS COSITAS MAS
ZALU2

[Ximorro]

¿Se puede saber qué te pasa?
Te estamos diciendo que ya casi lo tienes, te falta nada para completar esa rutina.

No sé qué estás respondiendo a Chekok, que yo sepa no ha escrito nada en esta entrada.
De todas maneras tus ansias de venganza empañan nuestro esfuerzo de que el foro no se convierta en un núcleo de hacking y creadores de virus. Intentamos convertirnos en un referente respetable para la comunidad hispana de AutoIT, no queremos que las otras comunidades de AutoIT nos tachen de indeseables...