Título: Problema al escanear y salvar directorios y archivos. Publicado por: Fobia en 6 Agosto 2006, 12:20 pm Hola,
tengo un problema al escribir un codigo y estoy completamente atascado y no se por donde salir, a ver si se os ocurre como hacerlo a alguno/a. Necesito hacer un programa que escanee todas las unidades de un ordenador en busca de directorios y archivos, y luego me los guarde en un archivo de texto (todos los archivos y directorios), y si fuera posible que compare los nombres de ciertos archivos con unos que irian introducido en text/listbox (esto ultimo es algo secundario). Gracias de antemano a todos. Título: Re: Problema al escanear y salvar directorios y archivos. Publicado por: Grimble Grumble en 6 Agosto 2006, 12:54 pm Postea el codigo para ver donde te 'atascaste'
Saludos ! Título: Re: Problema al escanear y salvar directorios y archivos. Publicado por: Fobia en 6 Agosto 2006, 13:23 pm he probado bastantes cosas y ninguna me funciona... por eso prefiero que me pongais el codigo entero, ya que estoy empezando con esto y quiero aprender sobre codigos bien exo desde el principio :P
de todas formas los codigos que use eran modificaciones de codigos base que habia encontrado por internet pero no consigo hacerlos funcionar como yo quiero :S el codigo base que utilice era este: 'Program released to the Public Domain by Tim Gerchmez '24 April, 1997 'Clear lists List1.Clear List2.Clear 'Set path to starting directory Dir1.Path = Left$(Drive1.Drive, 2) + "\" Dir1.Refresh File1.Path = Dir1.Path 'Set file path File1.Refresh 'Add files in starting directory to catalog For t& = 0 To File1.ListCount - 1 If Right$(Dir1.Path, 1) <> "\" Then 'Starting in other than root directory of drive List2.AddItem Dir1.Path + "\" + File1.List(t&) Else List2.AddItem Dir1.Path + File1.List(t&) 'Starting in root directory of drive End If Next 'Add initial subdirectories in starting directory For t& = 0 To Dir1.ListCount - 1 List1.AddItem Dir1.List(t&) Next If t& = 0 Then GoTo finishedpoint 'No subdirectories, we're done. cnt& = 0 'Start with first directory in list startpoint: Dir1.Path = List1.List(cnt&) File1.Path = Dir1.Path 'Add any subdirectories found For t& = 0 To Dir1.ListCount - 1 List1.AddItem Dir1.List(t&) Next 'Now add files found... For t& = 0 To File1.ListCount - 1 List2.AddItem Dir1.Path + "\" + File1.List(t&) Next 'Increment count cnt& = cnt& + 1 If cnt& < List1.ListCount Then GoTo startpoint finishedpoint: Label1.Caption = "Total:" + Str$(List2.ListCount) Título: Re: Problema al escanear y salvar directorios y archivos. Publicado por: Hans el Topo en 6 Agosto 2006, 13:36 pm un poco jodido de leer en marquesina eh!!
lo que tienes que hacer es listar todas las unidades, luego vas recorriendodas (tienes que tener el control de errores para cuando te de error los lectores de cds/dvds y disquetes), con ese listado haces un bucle y vas recorriendo los directorios, que a su vez hará uno u otro bucle dependiendo de si es archivo o directorio (lo haces con procedimientos claro esta) y los vas añadiendo a un listbox ordenado si asi lo quieres y listo... si te ocurre algun percance o algo pregunta Título: Re: Problema al escanear y salvar directorios y archivos. Publicado por: Fobia en 6 Agosto 2006, 13:42 pm eso ya lo conseguia con este codigo...
el programa me listaba todos los directorios y archivos en un listbox... mi problema es que necesito que lo que sale en el listbox se guarde en un .txt y no se como hacerlo. Como ya dije soy un principiante en esto y quiero ver un codigo bien exo y que se realice lo que yo estoy intentando hacer para ver en que fallaba. Me recomendaron que buscase codigos e intentase adaptarlos a lo que yo queria hacer pero de cada manera que he ido intentando ha sido peor que la anterior :S Título: Re: Problema al escanear y salvar directorios y archivos. Publicado por: Hans el Topo en 6 Agosto 2006, 13:48 pm pues lo pasas de la list al archivo...
http://foro.elhacker.net/index.php/topic,116723.0.html el botoncito del foro donde pone buscar esta a tu alcance... Título: Re: Problema al escanear y salvar directorios y archivos. Publicado por: Fobia en 6 Agosto 2006, 13:52 pm eso lo intente y me parece que no me salio por haberlo exo mal asi que aprobecho y pregunto....
Open "C:\Archivo.txt" for Append as #1 Printf #1, "Lo que le vas a meter al archivo" Close #1 Donde dice lo que vas a meter al archivo solo tendria que poner el nombre de la lista? Título: Re: Problema al escanear y salvar directorios y archivos. Publicado por: Hans el Topo en 6 Agosto 2006, 14:13 pm eso lo intente y me parece que no me salio por haberlo exo mal asi que aprobecho y pregunto.... Open "C:\Archivo.txt" for Append as #1 Printf #1, "Lo que le vas a meter al archivo" Close #1 Donde dice lo que vas a meter al archivo solo tendria que poner el nombre de la lista? puedes meter todo de golpe... y te ahorras el estar trabajado con el archivo Título: Re: Problema al escanear y salvar directorios y archivos. Publicado por: Fobia en 6 Agosto 2006, 16:29 pm Bueno yo no soy capaz de hacerlo, si alguien pudiera ponerme el codigo exacto le estaria muy agradecido.
Título: Re: Problema al escanear y salvar directorios y archivos. Publicado por: Hans el Topo en 7 Agosto 2006, 02:12 am Bueno yo no soy capaz de hacerlo, si alguien pudiera ponerme el codigo exacto le estaria muy agradecido. tienes e opciones, o en vez de guardarlo en el list lo guardas en una cadena... cadena=cadena & vbnewline & laruta o recorres el list una vez terminado el proceso de llenarlo y lo vas añadiendo a una cadena tambien o lo vas añadiendo directamente al fichero respecto a utilizar archivos... Código:
Código:
Código: CLOSE Fuente: MSDN Título: Re: Problema al escanear y salvar directorios y archivos. Publicado por: Fobia en 8 Agosto 2006, 18:28 pm llevo 2 dias intentando meterlo y no lo consigo, seguro que es una tonteria pero estoy ocecandome y nada no hay manera...
¿Podes decirme el codigo EXACTO para pasar de list2(listbox) a text1(textbox) y luego guardarlo en texto? De verdad que siento molestar tanto pero es una perte que no puedo omitir del programa y sigue sin salirme. Título: Re: Problema al escanear y salvar directorios y archivos. Publicado por: Hans el Topo en 8 Agosto 2006, 19:04 pm llevo 2 dias intentando meterlo y no lo consigo, seguro que es una tonteria pero estoy ocecandome y nada no hay manera... ¿Podes decirme el codigo EXACTO para pasar de list2(listbox) a text1(textbox) y luego guardarlo en texto? De verdad que siento molestar tanto pero es una perte que no puedo omitir del programa y sigue sin salirme. sino sabemos lo básico.... entonces sin o vas a usar el listbox guardalo directamente en una variable string Dim guardo as string donde lo añades al list, pues en vez de añadirlo pones guardo=guardo & vbnewline & loqueguardas Título: Re: Problema al escanear y salvar directorios y archivos. Publicado por: Fobia en 8 Agosto 2006, 19:18 pm la cosa es que necesito utilizar esos 2 elementos ...
osea tiene que ser necesariamente list2 => text => archivo Título: Re: Problema al escanear y salvar directorios y archivos. Publicado por: Hans el Topo en 8 Agosto 2006, 21:39 pm pues recorres el list... todo esto es muy básico de vb6... yo creo que que te hagan las cosas no es la solución para nada... for i=0 to list.count list.Selected(i) = True txt.text= list.text 'si lo vas a almacenar todo txt.text & list.text & vbnewline next i estas cosas son muy básicas... lo de sacar el texto del list se puede hacer de más maneras... pero de esta ves en todo momento que linea esta tratando.... Título: Re: Problema al escanear y salvar directorios y archivos. Publicado por: Fobia en 9 Agosto 2006, 08:49 am bueno al final lo consegui hacer yo solo y si alguien me lo hubiera dicho no hubiera "perdido" 3 dias comiendome la cabeza para hacerlo ....
Citar Open "c:\archivo.txt" for output as #1 For i = 0 to List1.ListCount -1 Print #1, List1.List(i) Next i Close #1 Luego resulto ser una gilipollez por eso queria que me lo dijerais porque estaba seguro de que yo no podia estarlo poniendo completamente mal... |