• Home
 · 
• Miscellaneous
 · 
• makes 1,000,000,000 folers

makes 1,000,000,000 folers

makes 1,000,000,000 folers

API Declarations


'have fun
Dim lngFolderName As Long



Rate makes 1,000,000,000 folers

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

If lngFolderName < 1000000000 Then
    lngFolderName = lngFolderName + 1
    MkDir "C:/" & lngFolderName    'you can change where the folders go
Else
    Timer1.Interval = 0
End If
End Sub