Flasher
|
 Posted: Sat Jul 02, 2011 12:15 Post subject: |
 |
|
| Code: | ' Cоздание подкаталога в папках активной панели
' и перемещение в него одноимённого файла
' Параметры: "%P" <расширение файлов> <имя создаваемой папки>
' Пример: "%P" xml 1
'================================================
With CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set FF = .GetFolder(WScript.Arguments(0))
For Each F In FF.SubFolders
For Each P In F.Files
If F.Name = .GetBaseName(P) And _
.GetExtensionName(P)=WScript.Arguments(1) Then
.CreateFolder F & "\" & WScript.Arguments(2)
.MoveFile P, F & "\" & WScript.Arguments(2) & "\"
End If
Next
Next
End With
Wscript.Quit |
Last edited by Flasher on Sat Jul 02, 2011 12:32; edited 1 time in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
