Script VBS: Copia de determinadas extensoes de arquivo de uma pasta de sub e salvar a pasta de scripts atual?

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

Resposta

Tente isto

Dim arr

Dim srcFldr

Dim destFldr

ARR=array("txt","jpg")

srcFldr = "C:\mysource\"

Definir fs = CreateObject ("Scripting.FileSystemObject")

Definir f = fs.GetFolder(srcFldr)

Definir fc = f.Files

destFldr = fs.GetParentFolderName (WScript.ScriptFullName) & "\"

Para um = 0 para ubound(arr)

Para cada f1 no fc

Se Right(f1.name,3)=arr(a), em seguida, f1.copy destFldr

Próximo

Próximo

Definir fc = nothing

Definir f = nothing

Definir fs = nothing

Você precisará alterar esta linha para sua extensão de arquivo, atualmente é apenas para txt e jpg.

ARR=array("txt","jpg")

Modificar esses 2 também

srcFldr = "C:\mysource\"

destFldr = fs.GetParentFolderName (WScript.ScriptFullName) & "\"

Nota: o caminho deve terminou com uma "\" para o código para trabalhar

Após o acima você deve capaz de executá-lo no xp ou vista.

Nota: você tem que ter cuidado que se a pasta de destino tem o mesmo nome de arquivo, ele será substituído quando você executa esse código.