LibreOffice 7.5 Help
рдбреЗрдЯрд╛ рдорд╛рдзреНрдпрдордорд╛ рдирд╛рдпрд╛рдБ рдбрд╛рдЗрд░реЗрдХреНрдЯрд░реА рд╕рд┐рд░реНрдЬрдирд╛ рдЧрд░реНрджрдЫ ред
MkDir path
path: Any string expression that specifies the name and path of the directory to be created. You can also use URL notation.
If the path is not determined, the directory is created in the current directory.
Sub ExampleFileIO
' рдлрд╛рдЗрд▓ рд╕рдЩреНрдЧрдардирдХреЛ рдкреНрд░рдХрд╛рд░реНрдпрд╣рд░реВрдХрд╛ рд▓рд╛рдЧрд┐ рдЙрджрд╣рд░рдг
Const sFile1 As String = "file://c|/autoexec.bat"
Const sDir1 As String = "file://c|/Temp"
рд╕реНрдЯреНрд░рд┐рдЩрдХреЛ рд░реВрдкрдорд╛ Const sSubDir рез ="Test"
рд╕реНрдЯреНрд░рд┐рдЩрдХрд╛ рд░реВрдкрдорд╛ Const sFile реи = "Copied.tmp"
рд╕реНрдЯреНрд░рд┐рдЩрдХрд╛ рд░реВрдкрдорд╛ Const sFile рей = "Renamed.tmp"
Dim sFile As String
sFile = sDir1 + "/" + sSubDir1
ChDir( sDir1 )
рдпрджрд┐ Dir(sSubDirрез,резрем)="" рддреНрдпрд╕рдкрдЫрд┐ ' рдХреЗ рдбрд╛рдЗрд░реЗрдХреНрдЯрд░реА рдЕрд╡рд╕реНрдерд┐рдд рд░рд╣рдиреНрдЫ ?
MkDir sSubDir1
рд╕рдиреНрджреЗрд╢ рдмрд╛рдХрд╕ sFile,0,"рдбрд╛рдЗрд░реЗрдХреНрдЯрд░реА рд╕рд┐рд░реНрдЬрдирд╛ рдЧрд░реНрдиреБрд╣реЛрд╕реН"
End If
sFile = sFile + "/" + sFile2
FileCopy sFile1 , sFile
рд╕рдиреНрджреЗрд╢ рдмрд╛рдХрд╕ fSysURL(CurDir()),0,"рд╣рд╛рд▓рдХреЛ рдбрд╛рдЗрд░реЗрдХреНрдЯрд░реА"
рд╕рдиреНрджреЗрд╢ рдмрд╛рдХрд╕ sFile & Chr(13) & FileDateTime( sFile ),0,"рд╕рд┐рд░реНрдЬрдирд╛ рд╕рдордп"
рд╕рдиреНрджреЗрд╢ рдмрд╛рдХрд╕ sFile & Chr(13)& FileLen( sFile ),0,"рдлрд╛рдЗрд▓ рд▓рдореНрдмрд╛рдЗ"
рд╕рдиреНрджреЗрд╢ рдмрд╛рдХрд╕ sFile & Chr(13)& GetAttr( sFile ),0,"рдлрд╛рдЗрд▓ рд╡рд┐рд╢реЗрд╖рддрд╛рд╣рд░реВ"
Name sFile As sDir1 + "/" + sSubDir1 + "/" + sFile3
' рдЙрд╣реА рдбрд╛рдЗрд░реЗрдХреНрдЯрд░реА рдкреБрди: рдирд╛рдордХрд░рдг рдЧрд░реНрдиреБрд╣реЛрд╕реН
sFile = sDir1 + "/" + sSubDir1 + "/" + sFile3
SetAttr( sFile, 0 ) 'рд╕рдмреИ рд╡рд┐рд╢реЗрд╖рддрд╛рд╣рд░реВ рдореЗрдЯреНрдиреБрд╣реЛрд╕реН
рд╕рдиреНрджреЗрд╢ рдмрд╛рдХрд╕ sFile & Chr(13) & GetAttr( sFile ),0,"рдирдпрд╛рдБ рдлрд╛рдЗрд▓ рд╡рд┐рд╢реЗрд╖рддрд╛рд╣рд░реВ"
Kill sFile
RmDir sDir1 + "/" + sSubDir1
End Sub
'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
'DOS рд╕рдБрдЧ рд╡рд┐рд░рд╛рдо рдЪрд┐рдиреНрд╣
iPos = Instr(1,fSysFp,":")
If iPos > 0 Then Mid( fSysFp, iPos , 1,"|")
fSysURL = "file://" & fSysFp
End Function