MkDir Statement

MkDir Statement diagram

рдбреЗрдЯрд╛ рдорд╛рдзреНрдпрдордорд╛ рдирд╛рдпрд╛рдБ рдбрд╛рдЗрд░реЗрдХреНрдЯрд░реА рд╕рд┐рд░реНрдЬрдирд╛ рдЧрд░реНрджрдЫ ред

Syntax:


MkDir path

Parameters:

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.

рддреНрд░реБрдЯрд┐ рд╕рдЩреНрдХреЗрддрд╣рд░реВ

5 рдЕрд╡реИрдз рдХрд╛рд░реНрдп-рд╡рд┐рдзрд┐ рдХрд▓

76 рдорд╛рд░реНрдЧ рдлреЗрд▓рд╛ рдкрд░реЗрди

Example:


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

Please support us!