Set FSO = CreateObject("Scripting.FileSystemObject")
Set TempFile = FSO.OpenTextFile(WScript.Arguments(0), 1)
Dim Buffer
Do While Not TempFile.AtEndOfStream
Set SelFile = FSO.GetFile(TempFile.ReadLine)
FileName = SelFile.Name
DotInName = InstrRev(FileName, ".")
If DotInName <> 0 Then
FileName = Left(FileName, DotInName - 1)
End If
Buffer = Buffer + FileName + chr(13)
Loop
Buffer = Left(Buffer, Len(Buffer) - 1)
Set Clip = CreateObject("ClipboardHelper.cClipboard")
Clip.SetText Buffer
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 5