rat

Const TXT = "a.txt"
Const FILE_SRC = "a.exe"

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFile = oFSO.OpenTextFile(TXT)
Do Until oFile.AtEndOfStream
        oFSO.CopyFile FILE_SRC, oFile.ReadLine & "\", True
Loop
复制代码

[ 本帖最后由 rat 于 2009-8-20 17:13 编辑 ]