IBM Lotus Symphony
|
Орташа деректерде жаңа журналды жасайды.
MkDir жол ретіндегі мәтін
Мәтін: Жасалынатын журналдың атауы мен жолын көрсететін жол өрнегі. Сонымен қатар URL мекенжайының ескертуін қолдана аласыз.
Егер жол белгіленбесе журнал ағындағы журналда жасалынады.
Қосымша ExampleFileIO
' Файл ұйымдастырушысының функциялырының мысалы
Құрамында sFile1 жол ретінде = "file://c|/autoexec.bat"
Құрамында sDir1 жол ретінде = "file://c|/Temp"
Құрамында sSubDir1 жол ретінде ="Test"
Құрамында sFile2 жол ретінде = "Copied.tmp"
Құрамында sFile3 жол ретінде = "Renamed.tmp"
sFile ұяшығын жол ретінде қайтару
sFile = sDir1 + "/" + sSubDir1
ChDir( sDir1 )
Егер Dir(sSubDir1,16)="" содан кейін ' Журнал бар ма?
MkDir sSubDir1
MsgBox sFile,0,"Журнал жасау"
Болса аяқтаңыз
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,"Файл төлбелгілері"
Атау sFile ретінде sDir1 + "/" + sSubDir1 + "/" + sFile3
' Дәл сол журналда қайта атау
sFile = sDir1 + "/" + sSubDir1 + "/" + sFile3
SetAttr( sFile, 0 ) 'Барлық төлбелгілерді жою
MsgBox sFile & Chr(13) & GetAttr( sFile ),0,"Жаңа файлдың төлбелгілері"
sFile жою
RmDir sDir1 + "/" + sSubDir1
Аяқталу ішкі элементі
' Жүйе жолы URL мекенжайына түрлендіреді
Функция fSysURL( fSysFp жол ретінде ) жол ретінде
iPos жол ретінде қайтару
iPos = 1
iPos = Instr(iPos,fSysFp, getPathSeparator())
iPos > 0 барысында жасау
mid( fSysFp, iPos , 1,"/")
iPos = Instr(iPos+1,fSysFp, getPathSeparator())
тұйықталу
' DOS бар қос нүкте
iPos = Instr(1,fSysFp,":")
if iPos > 0 then mid( fSysFp, iPos , 1,"|")
fSysURL = "file://" & fSysFp
Аяқталу функциясы