Creation of Folders like 'My Folder' 'My Folder(1)' etc.
Creation of Folders like 'My Folder' 'My Folder(1)' etc.
API Declarations
Dim i As Integer
Rate Creation of Folders like 'My Folder' 'My Folder(1)' etc.
(2(2 Vote))
'Put your own name to the directory here I have given 'My Foler' You can choose
'any name.
If FP.FolderExists("d:\ana\My Folder") = False Then
FP.CreateFolder ("d:\ana\My Folder")
Else
i = i + 1
FP.CreateFolder ("d:\ana\My Folder" & " " & "(" & i & ")")
End If
Creation of Folders like 'My Folder' 'My Folder(1)' etc. Comments
No comments yet — be the first to post one!
Post a Comment