Página 1 de 1

obtener un listado de los archivos q estan ocultos en un txt

Publicado: 09 Sep 2011, 14:40
por yasmany
Como obtener un listado de los archivos q estan ocultos en un txt
*********************************************************************
; Muestra los nombres de ficheros y todos los ficheros en el directorio actual
$search = FileFindFirstFile("c:\*.*")

; Chequea si la búsquea a sido satisfactoria
If $search = -1 Then
MsgBox(0, "Error", "No fiheros/directorios coincidentes con el criterio anterior")
Exit
EndIf

While 1
$file = FileFindNextFile($search)
If @error Then ExitLoop
$files = FileOpen("Desktop.txt", 2)
FileWriteLine($files,"Desktop.txt",""); pienso q deberia ponerse ahi el texto en el archivo destop.txt
;MsgBox(4096, "Fichero:", $file) ; a este lo puse como comentario para
;que no me funcione

WEnd
; Cierra el identificador de la búsqueda
FileClose($search)
*********************************************************************
lo q deseo es q me aparesca la lista dentro de un archivo.txt pero como ago para obtener el listado de solamente los ocultos de la unidad
disculpaD MI ignorancia

Re: obtener un listado de los archivos q estan ocultos en un

Publicado: 09 Sep 2011, 15:47
por BasicOs
Hola tan sencillo como incluir un si pasa esto hacer lo otro -> es decir un IF


If StringInStr(FileGetAttrib("c:\boot.ini"), "H") Then
FileWriteLine($files,"Desktop.txt",""); pienso q deberia ponerse ahi el texto en el archivo destop.txt
endif

Un ejemplo de una función completa:

Código: Seleccionar todo

Func _FileFilterAttrib($FileName, $Attrib)
    Dim $Return=0, $FileAttrib, $i, $ch
    If FileExists($FileName) Then
        $Return=-1
        $FileAttrib = FileGetAttrib($FileName)
        For $i = 1 to StringLen($Attrib)
            $ch = StringMid($Attrib,$i,1)
            If StringIsUpper($ch) Then
            ;This attribute must be on the list
                If not StringInStr($FileAttrib, $ch) then $Return = 0
            Else
            ;This attribute must not be on the list
                If StringInStr($FileAttrib, StringUpper($ch)) then $Return = 0
            EndIf
        Next
    EndIf
    Return $Return
EndFunc
Fuentes:

http://www.autoitscript.com/autoit3/doc ... Attrib.htm
http://www.autoitscript.com/forum/topic ... ttributes/

Salu22:)

Re: obtener un listado de los archivos q estan ocultos en un

Publicado: 09 Sep 2011, 17:13
por yasmany
hola Bassicos muchas gracias por responder ...
mi intencion es obtener los nombres de los archivos q estan ocultos en un archivo txt
el archivo txt es creado con el mismo codigo
disculpa ..pero trato de hacerme entender gracias y espero vuestra pronta respuesta
disculpen pero estoy empezando

Re: obtener un listado de los archivos q estan ocultos en un

Publicado: 09 Sep 2011, 22:26
por BasicOs
Hola aqui tienes una busqueda par iniread que te puede servir,
si no puedes buscar fileread() tambien

FIJATE al final de la función cuando la explica en la guia, te viene un ejemplo muy util para copia y pega, y luego retocar

Aquí : http://www.autoitscript.com/autoit3/docs/functions/


Salu22:)

Re: obtener un listado de los archivos q estan ocultos en un

Publicado: 12 Sep 2011, 09:07
por Ximorro
Poniendo ese IF que te pone BasicOS que comprueba el flag de oculto casi lo tienes.
Pero ojo que estás abriendo el archivo Desktop.txt dentro del bucle ¡con lo que lo abres cada vez que miras un archivo. Tienes que abrirlo fuera del bucle.
¡Y encima no lo cierras! Lo abres un montón de veces pero luego no lo cierras, y siendo que estás escribiendo en él es bastante importante que lo cierres.

Además, creo que estáis poniendo mal el FileWriteLine, esta función sólo tiene dos parámetros, el archivo y el texto a insertar.
Asi que sería:
FileWriteLine($files, $file)
que es un poco confuso por los nombres elegidos, pero $files es Desktop.txt que has abierto con FileOpen y es donde estás escribiendo, y $file es el nombre del archivo que estás analizando para ver si está oculto.