IBM Lotus Symphony


Оператор MkDir [встроенный]

Создает новый каталог на носителе данных.

Синтаксис:

MkDir текст As String

Параметры:

текст — произвольное строковое выражение, определяющее путь и имя создаваемого каталога. Также поддерживается формат URL.

Если путь не указан, каталог создается в текущем каталоге.

Коды ошибок

5 Недопустимый вызов процедуры

76 Путь не найден

Пример:

Sub ExampleFileIO

' Пример применения функций управления файлами

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 ' Каталог уже существует?

MkDir sSubDir1

MsgBox sFile,0,"Создание каталога"

End If

sFile = sFile + "/" + sFile2

FileCopy sFile1 , sFile

MsgBox fSysURL(CurDir()),0,"Текущий каталог"

MsgBox sFile & Chr(13) & FileDateTime(sFile),0,"Время создания"

MsgBox sFile & Chr(13)& FileLen(sFile),0,"Длина файла"

MsgBox sFile & Chr(13)& GetAttr(sFile),0,"Атрибуты файла"

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

' Переименование в том же каталоге

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

SetAttr( sFile, 0 ) 'Удаление всех атрибутов

MsgBox sFile & Chr(13) & GetAttr(sFile),0,"Новые атрибуты файла"

Kill sFile

RmDir sDir1 + "/" + sSubDir1

end sub

' Преобразование пути в формат 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

' двоеточие с DOS

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

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

fSysURL = "file://" & fSysFp

End Function


Комментарии по продукту | Дополнительная документация | Товарные знаки