IBM Lotus Symphony


MkDir-Anweisung [Laufzeit]

Erstellt ein neues Verzeichnis auf einem Datenträger.

Syntax:

MkDir Text As String

Parameter:

Text: Zeichenfolgeausdruck, der den Namen und Pfad des zu erstellenden Verzeichnisses angibt. Sie können auch die URL-Schreibweise verwenden.

Wenn der Pfad nicht angegeben ist, wird das Verzeichnis im aktuellen Verzeichnis erstellt.

Fehlercodes

5 Invalid procedure call

76 Path not found

Beispiel:

Sub ExampleFileIO

' Beispiel für 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 = "Copied.tmp"

Const sFile3 as String = "Renamed.tmp"

Dim sFile as String

sFile = sDir1 + "/" + sSubDir1

ChDir( sDir1 )

If Dir(sSubDir1,16)="" then ' Ist das Verzeichnis vorhanden?

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,"Erstellungszeit"

MsgBox sFile & Chr(13)& FileLen( sFile ),0,"Dateilänge"

MsgBox sFile & Chr(13)& GetAttr( sFile ),0,"Dateiattribute"

Name sFile as sDir1 + "/" + sSubDir1 + "/" + sFile3

' Im gleichen Verzeichnis umbenennen

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

' Der Doppelpunkt mit DOS

iPos = Instr(1,fSysFp,":")

if iPos > 0 then mid( fSysFp, iPos , 1,"|")

fSysURL = "file://" & fSysFp

End Function


Produktfeedback | Zusätzliche Dokumentation | Marken