ABCdatos
ABCdatos tu página de inicio Inicio       

Ayuda ms-Dos

Uso de los sistemas operativos (Windows, Mac OS, Linux, etc.) y sus programas accesorios. Instalación, configuración, controladores de dispositivos (drivers)...

Moderador: Moderadores

Notapor 4-ni-k-tor » Vie Jun 28, 2002 10:05 pm

tengo un archivo .txt con un listado de archivos y sus respectivas rutas de acceso. Como hago para realizar operaciones sobre cada uno de essos archivos?
4-ni-k-tor
Novat@
 
Mensajes: 2
Registrado: Mar Jun 25, 2002 1:00 am
Ubicación: musica

Notapor Invitado » Lun Jul 01, 2002 10:52 pm

El 2002-06-28 23:05, 4-ni-k-tor escribió:
tengo un archivo .txt con un listado de archivos y sus respectivas rutas de acceso. Como hago para realizar operaciones sobre cada uno de essos archivos?

Lo puedes abrir y manipular con cualquier editor de texto.
Saludos
Avatar de Usuario
Invitado
 

Notapor Invitado » Mar Jul 09, 2002 10:39 am

Esto es un script en visual basic script.
Salva el texto que hay entre las "______________" en el notepad y llamalo como quieras, pero la extension ha de ser "VBS" (ejemplo: atriki.vbs").
Luego lo ejecutas pulsando dos veces con el raton derecho sobre el, o bien con la linea de comandos: "cscript.exe atriki.vbs" o "wscript.exe atriki.vbs".

_____________________________________
on error resume next
Dim oShell, fso, sRutaAlTXT, sNombreFichero, f, retString, msg

'Sustituir C: por la ruta a tu .txt
sRutalAlFichero = "C:"
'Sustituir aaa.txt por el nombre de tu fichero .txt"
sNombreFichero = "aaa.txt"
Set oShell = CreateObject("Wscript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(sRutaAlTXT & sNombreFichero, 1)

Do While f.AtEndOfStream <> True
retString = f.ReadLine
msg = ReportFileStatus(retString)
MsgBox "El fichero: " & retString & " " & msg & " EXISTE"
Loop


'Funcion
Function ReportFileStatus(filespec)
on error resume next
Dim fso, msg
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(filespec)) Then
msg = "SI"
Else
msg = "NO"
End If
ReportFileStatus = msg
End Function

__________________________


Lo que hace es precisamente manejar cada fichero que hay en la lista de ficheros .txt. En exte caso lo que hace es comprobra si cada fichero que hay enumerado en e. .txt existe, y saca por pantalla el resultado de esa comprobacion.

Ojo, lo hace para cada fichero, si hay cien ficheros en la lista, te sacara cien mensajitos de marras, asi que modificalo a tu gusto.

MF
Avatar de Usuario
Invitado
 


Volver a Sistemas operativos

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados

Creado con phpBB3 © 2000, 2002, 2005, 2007 Grupo phpBB
Copyright © 1999-2014 ABCdatos.com. Todos los derechos reservados.
Aviso legal. Políticas de privacidad y cookies.
Contactar con ABCdatos.