Module
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