Contents
Index 🔎︎

# MkDir Statement

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

## ཚིག་སྦྱོར:

    ཨེམ་ཀེ་ཌིར་ཚིག་ཡིག་ ཡིག་རྒྱུན་བཟུམ།

## ཚད་བཟུང་ཚུ་:

ཚིག་ཡིག་: ཡིག་རྒྱུན་གསལ་བརྗོད་གང་རུང་འདི་མིང་དང་གསར་བསྐྲུན་འབད་ནི་ཨིན་མི་སྣོད་ཐོའི་འགྲུལ་ལམ་འདི་གསལ་བཀོད་འབདཝ་ཨིན། ཁྱོད་ཀྱིས་ཡང་ ཡི་ཨར་ཨེལ་དབྱངས་རྟགས་ལག་ལེན་འཐབ་བཏུབ་ཨིན།.

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

## Error codes:

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

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

## དཔེར་བརྗོད:

    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