Eu trabalho com a Delta Airlines e eu ter escrito um código vbs com o qual eu posso apagar todos os arquivos em uma determinada pasta. Eu testei e ele funciona muito bem no meu computador mas quando eu colocá-lo em outro pc, ele não funciona. Como posso obtê-lo para executar em todos os do pc que são usados pelas companhias aéreas. Aqui está o código que usei-
Dim sFolderName, oFSO, oFolders
sFolderName = "C:\Documents e Settings\All Users\Application Data\DAL\Cornerstone"
Definir oFSO = createobject("scripting.filesystemobject")
Definir oFolders = oFSO.getfolder(sFolderName)
ScanFolder oFolders
Sub ScanFolder(oFolders)
Dim perfis, rfil, oFolder, oSubFolders, oSubFolder
Definir oSubFolders = oFolders.subfolders
Definir perfis = oFolders.files
Para cada rfil em perfis
oFile.Delete(True)
Próximo
Para cada oSubFolder em oSubFolders
ScanFolder oSubFolder
Se oSubFolder.Size = 0, em seguida, oSubFolder.Delete(True)
Próximo
Set oSubFolders = Nothing
Definir perfis = Nothing
EndSub
Quando eu copiá-lo para outro pc no mesmo servidor é claro, ele não funciona. Dá-me uma mensagem de erro:
Host de scripts do Windows
linha-6
Char-1
erro-caminho não encontrado
Qualquer ajuda seria muito apreciada.
Estou tentando colar esse código no pc com o mesmo sistema operacional (Windows XP). Sua ainda me dá erro.