by Randy Houck (6 Submissions)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 7th May 2004
Date Added: Mon 8th February 2021
Rating: (1 Votes)
makes 1,000,000,000 folers
API Declarations
'have fun
Dim lngFolderName As Long
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