Contents

# MkDir Statement

གནད་སྡུད་འབྲིང་མ་གུ་སྣོད་ཐོ་གསརཔ་གཅིག་གསར་བསྐྲུན་འབདཝ་ཨིན།

### 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.

འགྲུལ་ལམ་འདི་གཏན་འབེབས་བཟོ་འདི་མེད་པ་ཅིན་ སྣོད་ཐོ་འདི་ད་ལྟོའི་སྣོད་ཐོ་ནང་གསར་བསྐྲུན་འབདཝ་ཨིན།

### Error codes:

༥ ནུས་མེད་བྱ་སྒོའི་ལམ་ལུགས་བོད་བརྡ་

༧༦ འགྲུལ་ལམ་འཚོལ་མ་ཐོབ ༧༦ འགྲུལ་ལམ་འཚོལ་མ་ཐོབ ༧༦ འགྲུལ་ལམ་འཚོལ་མ་ཐོབ ༧༦ འགྲུལ་ལམ་འཚོལ་མ་ཐོབ ༧༦ འགྲུལ་ལམ་འཚོལ་མ་ཐོབ ༧༦ འགྲུལ་ལམ་འཚོལ་མ་ཐོབ ༧༦ འགྲུལ་ལམ་འཚོལ་མ་ཐོབ ༧༦ འགྲུལ་ལམ་འཚོལ་མ་ཐོབ

### Example:

    Sub ExampleFileIO
    ཡིག་སྣོད་འགོ་འདྲེན་འཐབ་ནི་གི་ལས་འགན་ཚུའི་དོན་ལུ་དཔེར་བརྗོད།
    Const sFile1 As String = "file://c|/autoexec.bat"
    Const sDir1 As String = "file://c|/Temp"
    ཀོནསིཊི་ ཨེསི་འོག་མ་ཌར་་༡ ཡིག་རྒྱུན་བཟུམ་སྦེ་ ="Test"
    ཀོནསིཊི་ ཨེསི་ཡིག་སྣོད་ ༢ ཡིག་རྒྱུན་བཟུམ་སྦེ = "Copied.tmp"
    ཀོནསིཊི་ ཨེསི་ཡིག་སྣོད་ ༣ ཡིག་རྒྱུན་བཟུམ་སྦེ་ = "Renamed.tmp"
    Dim sFile As String
        sFile = sDir1 + "/" + sSubDir1
        ChDir( sDir1 )
        ཌར་ཨིན་པ་ཅིན་(sSubDir1,16)="" དེ་ལས་ 'སྣོད་ཐོ་འདི་འདུག་ག  ?
            MkDir sSubDir1
            འཕྲིན་དོན་སྒྲོམ ཨེསི་ཡིག་སྣོད ༠"Create directory"
        End If
        sFile = sFile + "/" + sFile2
        FileCopy sFile1 , sFile
        འཕྲིན་དོན་སྒྲོམ་ ཨེཕ་སཱའིས་ཡུ་ཨར་ཨེལ(CurDir())༠"Current directory"
        འཕྲིན་དོན་སྒྲོམ་་ཨེསི་ཡིག་སྣོད་ & སིཨེཆཨར་(13) & ཡིག་སྣོད་ཚེས་དུས་ཚོད( sFile ),0,"Creation time"
        འཕརིན་དོན་སྒྲོམ་ ཨེསི་ཡིག་སྣོད & སི་ཨེཆ་ཨར(13)& ཡིག་སྣོད་ལིན( sFile ),0,"File length"
        འཕྲིན་དོན་སྒྲོམ་ ཨེསི་ཡིག་སྣོད་ & སི་ཨེཆ་ཨར་(13)& ལེན་ཨཊར( sFile ),0,"File attributes"
        Name sFile As sDir1 + "/" + sSubDir1 + "/" + sFile3
        སྣོད་ཐོ་གཅིག་པ་འདི་ནང་བསྐྱར་མིང་བཏགས།
        sFile = sDir1 + "/" + sSubDir1 + "/" + sFile3
        གཞི་སྒྲིག་་ཨཊར( sFile, 0 ) 'ཁྱད་ཆོས་ཚུ་ཆ་མཉམ་བཏོན་གཏང་།
        འཕྲིན་དོན་སྒྲོམ་་ཨེསི་ཡིག་སྣོད་ & སི་ཨེཆ་ཨར(13) & ལེན་ཨཊར( sFile ),0,"New file attributes"
        Kill sFile
        RmDir sDir1 + "/" + sSubDir1
    End Sub

    རིམ་ལུགས་འགྲུལ་ལམ་འདི་ཡུ་ཨར་ཨེལ་ནང་གཞི་བསྒྱུར་འབདཝ་ཨིན།
    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
        ཌི་ཨོ་ཨེསི་དང་གཅིག་ཁར་་ཀོ་ལཱོན་འདི།
        iPos = Instr(1,fSysFp,":")
        If iPos > 0 Then Mid( fSysFp, iPos , 1,"|")
        fSysURL = "file://" & fSysFp
    End Function

Please support us!