Anweisung MkDir

MkDir Statement diagram

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

Bitte unterstĂĽtzen Sie uns!