Ayuda ms-Dos
Moderador: Moderadores
-
- Novat@
- Mensajes: 2
- Registrado: Mar Jun 25, 2002 2:00 am
- Ubicación: musica
- Contactar:
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
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