Opret mappe

Public Function fhpFolder_Create(strPath As String, strFolder As String) As Boolean
' -----------------------------------------------------------------------------------
' Purpose    : Opret en ny mappe på disk
' 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:
  Set fsObj = Nothing
  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

Public Function fhpFolder_Exists(ByVal strFileName As String) As Boolean
' -----------------------------------------------------------------------------------
' Purpose    : Check om en folder findes på disk
' Parameters :
' Returns    : Boolean
' Created    : 08-02-04 HP
' Modified  :
' Remarks    :
' -----------------------------------------------------------------------------------
On Error GoTo Error_fhpFolder_Exists
  Dim fsObj                                                    'Filesystem object

  Set fsObj = CreateObject("Scripting.FileSystemObject")
  fhpFolder_Exists = fsObj.FolderExists(strFileName)

Exit_fhpFolder_Exists:
  Set fsObj = Nothing
  Exit Function

Error_fhpFolder_Exists:
  Select Case Err.Number
    Case 2501
    Case 3021
    Case Else
      MsgBox Err.Number & ": " & Err.Description, vbOKOnly + vbCritical, "Error in procedure 'fhpFolder_Exists'"
  End Select
  Resume Exit_fhpFolder_Exists

End Function




strPath = eksisterende path
strFolder = nyt directory

Eller lidt kortere

Sub OpretTest()
    On Error Resume Next
    ChDir "c:\test"
    ChDir "c:\"
    MkDir "c:\test"
End Sub

jkrons, ku' du ikke bare nøjes med (ved godt at det er lidt pjat)
Sub OpretTest()
    On Error Resume Next
    MkDir "c:\test"
End Sub

bak-> Jo, det burde faktisk være nok, da den jo ikke opretter mappen igen, hvis den allerede findes.

Tak for svarene.
Jeg har brugt bak's helt korte løsning. Hvad får jeg ud af at bruge ChDir - også til en anden gang?

Hvordan fordeler jeg lige pointene retfærdigt?

Kan vi ikke få lukket den her. Bak og Jkrons, smid et svar. Ok?

Ok. ;-)

ok :-)