IBM Lotus Symphony


Instrukcja MkDir [środowisko wykonawcze]

Służy do tworzenia nowego katalogu na nośniku danych.

Składnia

MkDir Tekst As String

Parametry

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.

Kody błędów

5 Nieprawidłowe wywołanie procedury

76 Ścieżka nie została znaleziona

Przykład

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


Opinia na temat produktu | Dodatkowa dokumentacja | Znaki towarowe