Oprette bibliotek

MkDir "C:\Sti\"

you can use the shell function to do this

Shell("MKDIR C:\YourDir")

or something like that

Public Function fhpFolder_Create(strPath As String, strFolder As String) As Boolean
' -----------------------------------------------------------------------------------
' Purpose    : Creates a new folder
' Parameters :
' Returns    : Boolean
' Created    : 03-26-02 HP
' Modified  :
' Remarks    :
' -----------------------------------------------------------------------------------
On Error GoTo Error_fhpFolder_Create
  Dim strBuildPath As String                                    'Complete path
  Dim fsObj                                                    'Filesystem object
  Set fsObj = CreateObject("Scripting.FileSystemObject")
  strBuildPath = fsObj.BuildPath(strPath, strFolder)            'Build the path
  fsObj.CreateFolder strBuildPath                              'Create the path
  If fhpFolder_Exists(strBuildPath) Then
    fhpFolder_Create = True
  Else
    fhpFolder_Create = False
  End If
 
Exit_fhpFolder_Create:
  Exit Function

Error_fhpFolder_Create:
  Select Case Err.Number
    Case 58
    Case 2501
    Case 3021
    Case Else
      MsgBox Err.Number & ": " & Err.Description, vbOKOnly + vbCritical, "Error in procedure 'fhpFolder_Create'"
  End Select
  Resume Exit_fhpFolder_Create

End Function

Kaldes  fhpFolder_Create("hvor", "Navn på ny folder")