Paganahin ang JavaScript sa browser upang ipakita ang mga pahina ng Tulong sa LibreOfficeDev.

Pahayag ng MkDir

Diagram ng Pahayag ng MkDir

Lumilikha ng bagong direktoryo sa isang daluyan ng data.

Syntax:


landas ng MkDir

Mga Parameter:

landas: Anumang string expression na tumutukoy sa pangalan at path ng direktoryo na gagawin. Maaari mo ring gamitin URL notation .

Kung ang landas ay hindi natukoy, ang direktoryo ay nilikha sa kasalukuyang direktoryo.

Mga error code:

5 Di-wastong procedure call

76 Hindi natagpuan ang landas

Halimbawa:


Sub ExampleFileIO
' Halimbawa para sa mga function ng file organization
Const sFile1 As String = "file://c|/autoexec.bat"
Const sDir1 As String = "file://c|/Temp"
Const sSubDir1 Bilang String ="Pagsusulit"
Const sFile2 Bilang String = "Kopya.tmp"
Const sFile3 Bilang String = "Renamed.tmp"
Dim sFile As String
    sFile = sDir1 + "/" + sSubDir1
    ChDir( sDir1 )
    Kung Dir(sSubDir1,16)="" Pagkatapos ay ' Umiiral ba ang direktoryo?
        MkDir sSubDir1
        MsgBox sFile,0,"Gumawa ng direktoryo"
    End If
    sFile = sFile + "/" + sFile2
    FileCopy sFile1 , sFile
    MsgBox fSysURL(CurDir()),0,"Kasalukuyang direktoryo"
    MsgBox sFile at Chr(13) at FileDateTime( sFile ),0,"Oras ng paglikha"
    MsgBox sFile & Chr(13)& FileLen( sFile ),0,"Haba ng file"
    MsgBox sFile & Chr(13)& GetAttr( sFile ),0,"File attributes"
    Name sFile As sDir1 + "/" + sSubDir1 + "/" + sFile3
    ' Palitan ang pangalan sa parehong direktoryo
    sFile = sDir1 + "/" + sSubDir1 + "/" + sFile3
    SetAttr( sFile, 0 ) 'Tanggalin ang lahat ng katangian
    MsgBox sFile & Chr(13) & GetAttr( sFile ),0,"Mga bagong katangian ng file"
    Kill sFile
    RmDir sDir1 + "/" + sSubDir1
End Sub
 
' Nagko-convert ng path ng system sa 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
    ' ang colon na may DOS
    iPos = Instr(1,fSysFp,":")
    If iPos > 0 Then Mid( fSysFp, iPos , 1,"|")
    fSysURL = "file://" & fSysFp
End Function