Flasher
|
 Posted: Thu Jul 21, 2011 00:42 Post subject: |
 |
|
Для разнообразия (путь запуска также очистить):
| Code: | ' Создание папки с именем "<текущий день месяца><порядковый №>" и переход в нее в TC
'===============================================================
Dim WSH
Set WSH = WScript.CreateObject("WScript.Shell")
With CreateObject("Scripting.FileSystemObject")
Set FF = .GetFolder(WSH.CurrentDirectory)
If Day(date) > 9 Then
D = Day(date)
Else
D = "0" & Day(date)
End If
If .FolderExists(FF & "\" & D & "01") Then
For Each F in FF.SubFolders
N = F.Name
If IsNumeric(N) And Left(N,2) = Trim(D) And Len(N) > 3 Then
If Mid(N,3,1) = 0 And Len(N) > 4 Then
If .FolderExists(FF&"\"&Left(N,4)) Then A = Mid(N,3,2)
ElseIf Len(N) = 4 Then A = Mid(N,3)
Else
B = Mid(N,3)
A = Abs(Mid(N,3))
End If
If Max < A Then Max = A
If Mx < B Then Mx = B
End If
Next
If Max >= 09 Then
If Mx < 100 Then
Folder = FF & "\" & Trim(D) & Abs(Max)+1
Else
Folder = FF & "\" & Trim(D) & Abs(Mx)+1
End If
Else
Folder = FF & "\" & Trim(D) & Left(Max,1) & Abs(Mid(Max,2))+1
End If
Else
Folder = FF & "\" & Trim(D) & "01"
End If
.CreateFolder(Folder)
End With
WSH.Exec"%COMMANDER_PATH%\totalcmd.exe /o /s /l=""" & Folder & """"
Set WSH = Nothing
WScript.Quit |
В данном случае приращение будет отталкиваться от максимального порядкового номера вместо латания пробелов. ИМХО, это полезней, т.к. после манипуляций с папками (удаление, перемещение) сохраняется логическая последовательность.
Last edited by Flasher on Fri Jul 22, 2011 02:14; edited 3 times in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
