Create Multiple Folder Using VB6
Create Multiple
Folder Using Visual Basic 6
On Error Resume Next
Dim i As Integer
i = 0
Do Until i = 2000
Dim b As String
Dim c As String
i = i + 1
b = CStr(i)
c = "C:\Kasun" + b
MkDir (c)
Loop
If you run this programme the computer will create 2000 empty folders in couple of seconds in C:\ drive.
Dim i As Integer
i = 0
Do Until i = 2000
Dim b As String
Dim c As String
i = i + 1
b = CStr(i)
c = "C:\Kasun" + b
MkDir (c)
Loop
If you run this programme the computer will create 2000 empty folders in couple of seconds in C:\ drive.
**********************************
+94770597830
