Y perdona... parece una cosa muy trivial pero no he logrado encontrar la razón por internet.
Código
Set fso = CreateObject("Scripting.FileSystemObject") Set ws = CreateObject("WScript.Shell") Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.BrowseForFolder(0, "SELECCIONEU EL DIRECTORI ORTOFOTO:", 0, 0) If objFolder Is Nothing Then MsgBox("L'aplicacio s'ha cancelat") Wscript.Quit End If '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'CREAR UN ARCHIU TXT PER DESPRES EDITARLO Y APUNTAR LES ORTOS QUE FALTEN PER GENERAR. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Set ar = fso.CreateTextFile(objFolder.self.path & "\ortofotos-que-faltan.txt", True) ar.writeline(objFolder.self.path) ar.close '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'CREAR UN ARCHIU TXT AMB TOTES LES ORTOFOTOS DEL BLOC A PARTIR DELS FITXERS FERFULL '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Set car = fso.GetFolder(objfolder.parentfolder.self.path) Set listadoORTOFOTOS= fso.CreateTextFile(objFolder.self.path & "\llistat-ortofotos.txt", True) For Each archivo in car.Files If right(archivo.name,12)="_FerFull.bat" then listadoORTOFOTOS.writeline (archivo.name) End If Next listadoORTOFOTOS.close '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'COMPARAR EL FITXER llistat-ortofotos.txt AMB LES ORTOS QUE ES TROBEN AL DIRECTORI ORTOFOTO '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Set var = fso.OpenTextFile(objFolder.self.path & "\llistat-ortofotos.txt", 1) Do linea=var.Readline nombreArchivo=mid(linea,1,7) FileExists=fso.FileExists (objFolder.self.path& "\" &nombreArchivo& "_S.rf") if FileExists=FALSE Then Set arc = fso.GetFile (objFolder.self.path & "\ortofotos-que-faltan.txt") Set arc = arc.OpenAsTextStream(8) arc.Writeline nombreArchivo & "_S.rf" End if loop until var.AtEndOfStream=True arc.close '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'OBRE EL FITXER ortofotos-que-faltan.txt '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' msgbox ("Aquestes son les ortofotos que no es tronben al directori indicat") ws.Run (objFolder.self.path & "\ortofotos-que-faltan.txt") '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'BORRA ELS FITXERS INTERMITJOS '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' fso.DeleteFile objFolder.self.path & "\llistat-ortofotos.txt", True
El script me funciona correctamente.
Pero cuando llega al final y tiene que borrar un ficheros txt peta:
permission denied
800A0046
cuando me refería a esto:
Después con el mismo código pero en un script diferente me los borra sin problemas.
Quería decir que con este script me lo borra.
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile objFolder.self.path & "\llistat-ortofotos.txt", True
Nota del mod: recuerda las etiquetas