Total Commander

Код: Выделить всё

@echo off &setlocal enableextensions &set /a cnt=1
rem Создание каталога: первые две цифры дата, следующие две порядковый номер
rem Если дата в формате DD.MM.YY
for /f "tokens=1 delims=-/." %%d in ("%date%") do set "d=0%%d"
:loop
set /a cnt+=1 &set "n=0%cnt%"
if "%cnt%"=="101" (title Over 100 :^( &pause >nul &exit)
set "new=%d:~-2%%n:~-2%" &md "%new%" 2>nul &&(
"%commander_path%\totalcmd.exe" /O /S /L="%cd%\%new%" &exit) ||goto :loop

Код: Выделить всё

' Создание папки с именем "<текущий день месяца><порядковый №>" и переход в нее в 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