MkDir Statement

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

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