by Bhuwan Chand Joshi (69 Submissions)
Category: Windows System Services
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 3rd June 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Visual Basic creates 10000 folders in 13 Seconds
API Declarations
Dim dblStart as double
Dim dblEnd as double
On error goto Err_Handler
dblStart=Timer
set Obj=CreateObject("Scripting.FileSystemObject")
For X=0 to 9999
Obj.CreateFolder App.Path & "\" & X
Next X
dblEnd=Timer
Msgbox dblEnd-dblStart,vbInformation
Err_Handler:
msgbox err.description
End Sub