| chimpance |  |
|
2009-10-19 11:13 - Respuestas: 0 - Tema nº: 2629124
Windows 2003 .
Hola,
Tengo uns-c-r-i-p-tque me borra los ficheros y me genera mensajes hechos por mi, pero lo que quiero es que los mensajes los genere windows en función de si se ha ejecutado bien els-c-r-i-p-to no. aqui os pongo el codigo que tengo:
Option Explicit
On Error Resume Next
Dim oFSO, oFolder, sDirectoryPath
Dim objFSO, logStream
Dim oFileCollection, oFile, sDir
Dim iDaysOld
Dim str_Etiqueta
Dim int_Argumento
Dim sFolder
Dim files
Dim newfile
Dim fso, fitxerpersonal, dir
'LEER PARAMETROS Y BORRAR FICHEROS
If WScript.Arguments.Unnamed.Count > 2 Then
WScript.Echo "Error: se han pasado demasiados argumentos."
WScript.Quit 1
ElseIf WScript.Arguments.Unnamed.Count < 1 Then
WScript.Echo "Error: no se ha pasado el argumento requerido."
WScript.Quit 1
End If
For int_Arguemtno = 0 To WScript.Arguments.Count - 1
str_Etiqueta = Mid (WScript.Arguments(int_Argumento), 1)
Next
For int_Argumento = 1 To WScript.Arguments.Count -1
iDaysOld = Mid (WScript.Arguments(int_Argumento), 1)
Next
sDirectoryPath = str_Etiqueta
dir=sDirectoryPath
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder(sDirectoryPath)
Set oFileCollection = oFolder.Files
Set fso = CreateObject("Scripting.FileSystemObject")
Set fitxerpersonal=fso.CreateTextFile(dir & "\" & "lista.txt", True)
fitxerpersonal.WriteLine (Date)
For each oFile in oFileCollection
If oFile.DateLastModified < (Date() - iDaysOld) Then
fitxerpersonal.WriteLine(oFile)
oFile.Delete(True)
End If
Next
fitxerpersonal.Close
WScript.Echo "Se ha ejecutado correctamente el fichero"
Set oFSO = Nothing
Set oFolder = Nothing
Set oFileCollection = Nothing
Set oFile = Nothing
| |
|
|
