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

Please support us!