Inhalte
Index 🔎︎

# Anweisung MkDir

Erstellt ein Verzeichnis auf einem Datenträger.

### Syntax:

    MkDir path

### Parameter:

path: Any string expression that specifies the name and path of the directory to be created. You can also use URL notation.

Sofern kein Pfad angegeben ist, wird das Verzeichnis im aktuellen Verzeichnis angelegt.

### Fehlercodes:

5 Ungültiger Prozeduraufruf

76 Pfad nicht gefunden

### Beispiel:

    Sub ExampleFileIO
    ' Beispiel zu Funktionen der Dateiorganisation
    Const sFile1 As String = "file://c|/autoexec.bat"
    Const sDir1 As String = "file://c|/Temp"
    Const sSubDir1 As String ="Test"
    Const sFile2 As String = "Kopiert.tmp"
    Const sFile3 As String = "Umbenannt.tmp"
    Dim sFile As String
        sFile = sDir1 + "/" + sSubDir1
        ChDir( sDir1 )
        If Dir(sSubDir1,16)="" Then ' Existiert das Verzeichnis?
            MkDir sSubDir1
            MsgBox sFile,0,"Verzeichnis erstellen"
        End If
        sFile = sFile + "/" + sFile2
        FileCopy sFile1 , sFile
        MsgBox fSysURL(CurDir()),0,"Aktuelles Verzeichnis"
        MsgBox sFile & Chr(13) & FileDateTime( sFile ),0,"Erstellzeit"
        MsgBox sFile & Chr(13)& FileLen( sFile ),0,"Dateilänge"
        MsgBox sFile & Chr(13)& GetAttr( sFile ),0,"Dateiattribute"
        Name sFile As sDir1 + "/" + sSubDir1 + "/" + sFile3
        ' Umbenennen im selben Verzeichnis
        sFile = sDir1 + "/" + sSubDir1 + "/" + sFile3
        SetAttr( sFile, 0 ) 'Alle Attribute löschen
        MsgBox sFile & Chr(13) & GetAttr( sFile ),0,"Neue Dateiattribute"
        Kill sFile
        RmDir sDir1 + "/" + sSubDir1
    End Sub

    ' konvertiert einen SystemPfad in eine URL
    Function fSysURL( fSysFp As String ) As String
    Dim iPos As String
        iPos = 1
        iPos = Instr(iPos,fSysFp, getPathSeparator())
        Do While iPos > 0
            Mid( fSysFp, iPos , 1,"/")
            iPos = Instr(iPos+1,fSysFp, getPathSeparator())
        Loop
        ' den Doppelpunkt bei DOS
        iPos = Instr(1,fSysFp,":")
        If iPos > 0 Then Mid( fSysFp, iPos , 1,"|")
        fSysURL = "file://" & fSysFp
    End Function