CodeItBetter Programming Another VB Programming Blog

'File/Folder Handling - How to Create folder (in three ways)
'Using MkDir:

Public Sub CreateFolderUsingMkDir(ByVal sFolderName As String)
    MkDir sFolderName
End Sub
 
'Using FSO:

Public Sub CreateFolderUsingFSO(ByVal sFolderName As String)
'Set a reference to "Microsoft Scripting Runtime"
    Dim FSO As Scripting.FileSystemObject
    Set FSO = New Scripting.FileSystemObject
    FSO.CreateFolder sFolderName
    Set FSO = Nothing
End Sub
 
'Using API:

http://codeitbetter.co.nr/vb6/code/Vb6Code00004.html