Aide LibreOffice 7.1
Crée un nouveau répertoire sur un média de données.
MkDir path
path: Any string expression that specifies the name and path of the directory to be created. You can also use URL notation.
Si le chemin n'est pas déterminé, le répertoire est créé dans le répertoire actif.
Sub ExampleFileIO
' Exemple pour les fonctions d'organisation des fichiers
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 ' Le répertoire existe-t-il ?
MkDir sSubDir1
MsgBox sFile,0,"Créer un répertoire"
End If
sFile = sFile + "/" + sFile2
FileCopy sFile1 , sFile
MsgBox fSysURL(CurDir()),0,"Répertoire actif"
MsgBox sFile & Chr(13) & FileDateTime( sFile ),0,"Date et heure de création"
MsgBox sFile & Chr(13)& FileLen( sFile ),0,"Longueur du fichier"
MsgBox sFile & Chr(13)& GetAttr( sFile ),0,"Attributs de fichier"
Name sFile As sDir1 + "/" + sSubDir1 + "/" + sFile3
' Renommer dans le même répertoire
sFile = sDir1 + "/" + sSubDir1 + "/" + sFile3
SetAttr( sFile, 0 ) 'Supprimer tous les attributs
MsgBox sFile & Chr(13)& GetAttr( sFile ),0,"Nouveaux attributs de fichier"
Kill sFile
RmDir sDir1 + "/" + sSubDir1
End Sub
' Convertit un chemin système en 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
' Signe deux-points sous DOS
iPos = Instr(1,fSysFp,":")
If iPos > 0 Then Mid( fSysFp, iPos , 1,"|")
fSysURL = "file://" & fSysFp
End Function