Макрос который создает папку!

Sub tt()
    Dim fso, Foldername, i&, задаювкоде&
 
    Set fso = CreateObject("Scripting.FileSystemObject")
    Foldername = "f:\Downloads\"
    задаювкоде = 3
    For i = 1 To задаювкоде
        fso.CreateFolder Foldername & i
    Next
End Sub

Private Sub Test()
    Dim iCount&
    For iCount = 1 To 3
        MkDir "C:\" & iCount
    Next
End Sub

Private Sub Test2()
    Dim iCount&
    For iCount = 1 To 3
        If Dir("C:\" & iCount, vbDirectory) = "" Then MkDir "C:\" & iCount
    Next
End Sub

' List Detailed Summary Information for a File
 
 
Set objShell = CreateObject ("Shell.Application")
Set objFolder = objShell.Namespace ("e:\tmp")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim arrHeaders(13)
 
For i = 0 to 13
    arrHeaders(i) = objFolder.GetDetailsOf (objFolder.Items, i)
Next
 
For Each strFileName in objFolder.Items
    For i = 0 to 13
        If i <> 9 then
            Wscript.echo arrHeaders(i) _
                & ": " & objFolder.GetDetailsOf (strFileName, i) 
        End If
    Next
    Wscript.Echo
Next

ChDrive "C": ChDir "C:\Documents and Settings"
Application.GetOpenFilename

With Application.FileDialog(msoFileDialogFolderPicker)
     .InitialFileName = "C:\Documents and Settings\"
     .Show
End With