IBM Lotus Symphony
|
Создает новый каталог на носителе данных.
MkDir текст As String
текст — произвольное строковое выражение, определяющее путь и имя создаваемого каталога. Также поддерживается формат URL.
Если путь не указан, каталог создается в текущем каталоге.
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