Aqui é o meu Script VBS
________________________________________________
Definir oFSO = CreateObject("Scripting.FileSystemObject")
Dim objFSO
strSourceFolder = "C:\Tp\.txt"
strDestFolder = oFSO.GetParentFolderName(WScript.ScriptFullName)
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile strSourceFolder, strDestFolder
__________________________________________________
Eu consegui editá-lo para que ele salva para o diretório que ele tenha sido executado de. Então eu preciso ajudar com três coisas
A) (mais importante) como posso fazer esse script para copiar arquivos de extensão txt para a pasta especificada.
B) copiar várias extensões de arquivo como mp3, avi ect (caso contrário eu será apenas correr múltiplo versões do script)
C) Will este trabalho no Windows XP?
Notas:
Este script funciona no vista.
Eu não me importaria de um script em lotes, enquanto ele faz exatamente a mesma coisa por exemplo. várias extensões de arquivo, sub-pasta ect.
Eu sou sorte de um script kiddie assim ser fácil:)
Por favor, não link para sites apenas modificar o código acima. Como eu provavelmente ter encontrado esse site eu mesmo mas não pode incoprorate-lo.
Por favor comentários produtivos apenas não faça perguntas estúpidas por favor!!
Obrigado alot, Chris - Obrigado para essa marca de pergunta de resposta. Mas ainda tenho um problema. Como posso obter este trabalho definindo a pasta atual como o destino como meu código acima fez. Tinha o código acima
Definir oFSO = CreateObject("Scripting.FileSystemObject")
na parte superior e:
oFSO.GetParentFolderName(WScript.ScriptFullName)
na parte de destino, mas sobre este script que não funciona!!! Obrigado mais uma vez desculpe, foi o código acima
cortar aqui é mais uma vez
Definir oFSO =
Função CreateObject
("Processamento de scripts.
FileSystemObject")
Acima é parte superior
oFSO.GetParent
Nome da pasta
(WScript.Script
FullName)
Foi no destino
slot
Estas peças são uma linha