Opret en mappe

F.eks:

MkDir "C:\NyMappe" ' opret mappe
RmDir "C:\NyMappe" ' fjern mappe; den skal være tom før dette kan gøres

Så vil jeg gerne lige tilføje:
Hvordan får man sit program til at søge hele computeren igennem får en fil (ex. test.exe)

Ponit uddeling:

Spm. 1 = 30 point
Spm. 2 = 30 point
Spm. 3 = 30 point

:)

Private Declare Function SearchTreeForFile Lib "imagehlp" (ByVal RootPath As String, ByVal InputPathName As String, ByVal OutputPathBuffer As String) As Long

Private Const MAX_PATH = 260

Private Sub Form_Load()
Dim tempStr As String
Dim Ret As Long
tempStr = String(MAX_PATH, 0)

Ret = SearchTreeForFile("C:\", "test.exe", tempStr)
  If Ret <> 0 Then
    MsgBox "Filen ligger " + Left$(tempStr, InStr(1, tempStr, Chr$(0)) - 1)
      Else
    MsgBox "Filen blev ikke foundet."
  End If
End Sub