El script lo he modificado con tu ayuda (objfolder.parentfolder.self.path)
Y perdona... parece una cosa muy trivial pero no he logrado encontrar la razón por internet.
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
Y perdona... parece una cosa muy trivial pero no he logrado encontrar la razón por internet.
Código (vb) [Seleccionar]
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