IBM Lotus Symphony
|
Opretter et nyt bibliotek på et datamedie.
MkDir Tekst As String
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.
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