IBM Lotus Symphony
|
Służy do tworzenia nowego katalogu na nośniku danych.
MkDir Tekst As String
Tekst: Dowolne wyrażenie łańcuchowe określające ścieżkę do tworzonego katalogu oraz jego nazwę. Można również użyć notacji URL.
Jeśli ścieżka nie zostanie określona, katalog zostanie utworzony w ramach katalogu bieżącego.
Sub Przyklad_operacji_we_wy_na_plikach
' Przykład użycia funkcji służących do organizowania plików
Const sPlik1 as String = "file://c|/autoexec.bat"
Const sKatalog1 as String = "file://c|/Temp"
Const sPodkatalog1 as String ="Test"
Const sPlik2 as String = "Skopiowany.tmp"
Const sPlik3 as String = "ZmienionaNazwa.tmp"
Dim sPlik as String
sPlik = sKatalog1 + "/" + sPodkatalog1
ChDir( sKatalog1 )
If Dir(sPodkatalog1,16)="" then ' Czy katalog istnieje?
MkDir sPodkatalog1
MsgBox sPlik,0,"Utworzono katalog"
End If
sPlik = sPlik + "/" + sPlik2
FileCopy sPlik1 , sPlik
MsgBox fSysURL(CurDir()),0,"Bieżący katalog"
MsgBox sPlik & Chr(13) & FileDateTime( sPlik ),0,"Czas utworzenia"
MsgBox sPlik & Chr(13)& FileLen( sPlik ),0,"Długość pliku"
MsgBox sPlik & Chr(13)& GetAttr( sPlik ),0,"Atrybuty pliku"
Name sPlik as sKatalog1 + "/" + sPodkatalog1 + "/" + sPlik3
' Zmiana nazwy w tym samym katalogu
sPlik = sKatalog1 + "/" + sPodkatalog1 + "/" + sPlik3
SetAttr( sPlik, 0 ) 'Usunięcie wszystkich atrybutów
MsgBox sPlik & Chr(13) & GetAttr( sPlik ),0,"Nowe atrybuty pliku"
Kill sPlik
RmDir sKatalog1 + "/" + sPodkatalog1
end sub
' Przekształcenie ścieżki systemowej w adres URL
Function fSysURL( fSysFp as String ) as String
Dim iPoz As String
iPoz = 1
iPoz = Instr(iPoz,fSysFp, getPathSeparator())
do while iPoz > 0
mid( fSysFp, iPoz , 1,"/")
iPoz = Instr(iPoz+1,fSysFp, getPathSeparator())
loop
' dwukropek w systemie DOS
iPoz = Instr(1,fSysFp,":")
if iPoz > 0 then mid( fSysFp, iPoz , 1,"|")
fSysURL = "file://" & fSysFp
End Function