IBM Lotus Symphony


Príkaz MkDir [Runtime]

Vytvorí nový adresár na údajovom médiu.

Syntax:

MkDir Text typu String

Parametre:

Text: Ľubovoľný reťazcový výraz, ktorý určuje názov adresára, ktorý sa má vytvoriť, a cestu k nemu. Tiež môžete použiť zápis URL.

Ak nezadáte cestu, adresár sa vytvorí v aktuálnom adresári.

Chybové kódy

5 Neplatné volanie procedúry

76 Cesta sa nenašla

Príklad:

Sub ExampleFileIO

' Príklad funkcií organizácie súborov

Const sFile1 as String = "file://c|/autoexec.bat"

Const sDir1 as String = "file://c|/Temp"

Const sSubDir1 as String ="Test"

Const sFile2 as String = "Copied.tmp"

Const sFile3 as String = "Renamed.tmp"

Dim sFile as String

sFile = sDir1 + "/" + sSubDir1

ChDir( sDir1 )

If Dir(sSubDir1,16)="" then ' Does the directory exist ?

MkDir sSubDir1

MsgBox sFile,0,"Vytvoriť adresár"

End If

sFile = sFile + "/" + sFile2

FileCopy sFile1 , sFile

MsgBox fSysURL(CurDir()),0,"Aktuálny adresár"

MsgBox sFile & Chr(13) & FileDateTime( sFile ),0,"Čas vytvorenia"

MsgBox sFile & Chr(13)& FileLen( sFile ),0,"Veľkosť súboru"

MsgBox sFile & Chr(13)& GetAttr( sFile ),0,"Atribúty súboru"

Name sFile as sDir1 + "/" + sSubDir1 + "/" + sFile3

' Premenovať v rovnakom adresári

sFile = sDir1 + "/" + sSubDir1 + "/" + sFile3

SetAttr( sFile, 0 ) 'Delete all attributes

MsgBox sFile & Chr(13) & GetAttr( sFile ),0,"Nové atribúty súboru"

Kill sFile

RmDir sDir1 + "/" + sSubDir1

end sub

' Skonvertuje systémovú cestu v adrese URL

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

' dvojbodka v systéme DOS

iPos = Instr(1,fSysFp,":")

if iPos > 0 then mid( fSysFp, iPos , 1,"|")

fSysURL = "file://" & fSysFp

End Funkcia


Spätná väzba na produkt | Ďalšia dokumentácia | Ochranné známky