Dim WshShell
Set WshShell = WScript.CreateObject( "WScript.Shell" )
CurrDir =  WshShell.CurrentDirectory
Set FS = CreateObject( "Scripting.FileSystemObject" )
Set f_list = FS.GetFile(CurrDir &  "\listing" )
Set listing = f_list.OpenAsTextStream( 1 )
WScript.Echo  "BEGIN" 
While listing.AtEndOfStream = 0 
        buff = listing.ReadLine()
        WScript.Echo  "    READING "  & buff

        nam = FS.GetFileName(buff)
        fld = FS.GetParentFolderName(buff)
        Fbuff = CurrDir &  "\tmp\"  & nam

        SET Tr  = FS.OpenTextFile(buff, 1 )
        SET Tw  = FS.CreateTExtFile(Fbuff,true)

        While Tr.AtEndOfStream = 0 
                Trl = Tr.ReadLine()
               ' не скажу че делаю
                Tw.WriteLine(Twl)
Wend
Tr.Close()
FS.DeleteFile(buff)