IBM Lotus Symphony


Sætningen MkDir [Runtime]

Opretter et nyt bibliotek på et datamedie.

Syntaks:

MkDir Tekst As String

Parametre:

Tekst: Et strengudtryk, der angiver navnet på og stien til det bibliotek, der skal oprettes. Du kan også bruge URL-notation.

Hvis stien ikke kan fastlægges, oprettes biblioteket i det aktive bibliotek.

Fejlkoder

5 Ugyldigt procedurekald

76 Stien er ikke fundet

Eksempel:

Sub FilIOEksempel

' Eksempel på funktioner til filorganisering

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

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

Const sUnderbib1 as String ="Test"

Const sFil2 as String = "Kopieret.tmp"

Const sFil3 as String = "Omdoebt.tmp"

Dim sFil as String

sFil = sBib1 + "/" + sUnderbib1

ChDir( sBib1 )

If Dir(sUnderbib1,16)="" then ' Findes biblioteket?

MkDir sUnderbib1

MsgBox sFil,0,"Opret bibliotek"

End If

sFil = sFil + "/" + sFil2

FileCopy sFil1 , sFil

MsgBox fSysURL(CurDir()),0,"Aktivt bibliotek"

MsgBox sFil & Chr(13) & FileDateTime( sFil ),0,"Oprettelsestidspunkt"

MsgBox sFil & Chr(13)& FileLen( sFil ),0,"Fillængde"

MsgBox sFil & Chr(13)& GetAttr( sFil ),0,"Filattributter"

Name sFil as sDir1 + "/" + sUnderbib1 + "/" + sFil3

' Omdøb i samme bibliotek

sFil = sBib1 + "/" + sUnderbib1 + "/" + sFil3

SetAttr( sFil, 0 ) 'Slet alle attributter

MsgBox sFil & Chr(13) & GetAttr( sFil ),0,"Nye filattributter"

Kill sFil

RmDir sBib1 + "/" + sUnderbib1

End Sub

' Konverterer en systemsti i 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

' kolonet i DOS

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

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

fSysURL = "file://" & fSysFp

End Function


Produktfeedback | Yderligere dokumentation | Varemærker