• Home
 · 
• Windows System Services
 · 
• Visual Basic creates 10000 folders in 13 Seconds

Visual Basic creates 10000 folders in 13 Seconds

Visual Basic creates 10000 folders in 13 Seconds

API Declarations


Dim dblStart as double
Dim dblEnd as double



Rate Visual Basic creates 10000 folders in 13 Seconds

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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