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

4-ni-k-tor
Novat@
Mensajes: 2
Registrado: Mar Jun 25, 2002 2:00 am
Ubicación: musica
Contactar:

Mensaje por 4-ni-k-tor » Vie Jun 28, 2002 11: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?

Avatar de Usuario
Invitado

Mensaje por Invitado » Lun Jul 01, 2002 11: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

Mensaje por Invitado » Mar Jul 09, 2002 11: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

Responder