Hilfe für LibreOffice 7.1
Erstellt ein Verzeichnis auf einem Datenträger.
MkDir path
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.
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 = "Copied.tmp"
Const sFile3 As String = "Renamed.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