Flasher
|
 Posted: Mon Oct 31, 2011 19:00 Post subject: |
 |
|
По-простому, без изысков:
| Code: | ' Перемещение выделенных файлов в создаваемые рядом папки
' с именами начал 10-х строк этих файлов до двоеточия
' Параметр: %L
'========================================================
With CreateObject("Scripting.FileSystemObject")
Set TF = .OpenTextFile(WScript.Arguments(0), 1)
Do While Not TF.AtEndOfStream
F = TF.ReadLine
If F > vbNullString And .FileExists(F) Then
FF = LTrim(Split(.OpenTextFile(F,,,-2).ReadAll, vbNewLine)(9))
Trg = .GetParentFolderName(F) & "\" & Left(FF, InStr(FF, ":") - 1)
If Not .FolderExists(Trg) Then .CreateFolder Trg
.MoveFile F, Trg & "\"
End If
Loop
TF.Close
End With |
Файлы должны быть сохранены в ANSI или UTF-16. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
