IBM Lotus Symphony


Dir функциясы [Орындалу ортасы]

Файлдың атауын, журналдың, немесе барлық файлдардың атауын қайтарады немесе көрсетілген іздеу жолына сәкес келетін журналдар немесе журналды қайтарады.

Синтаксис:

Dir [(жол ретіндегі мәтін) [, төлбелг бүтін сан ретінде]]

Берілетін мән:

Тармақ

Параметрлер:

Мәтін: Іздеу жолы, журнал немесе файлды көрсететін кез келген жол өрнегі. Бұл төлбелгі Dir функциясын бірінші рет шақырғанда көрсетіледі. Егер қаласаңыз жолды URL мекенжай түсінігіне енгізе аласыз.

Төлбелг: Биттық файл төлбелгісін көрсететін кез келген бүтін өрнек. Dir функциясы көрсетілген төлбелгілерге сәйкес келетін файлдар мен журналдарды қайтарады. Төлбелгі мәндерін қосу арқылы бірнеше төлбелгілерді біріктіре аласыз:

0 : Қалыпты файлдар.

16 : Тек журналдың атауын қайтарады.

Төлбелгіні файл немесе журналдың бар болуын тексеру үшін пайдаланыңыз немесе белгілі бір журналдығы қалташаларды немесе файлдарды анықтаңыз.

Файлдын бар болуын тексеру үшін файлдың аяқталған жолын немесе атауын енгізіңіз. Егер файл немесе журнал атауы жоқ болса Dir функциясы нөль ұзындық жолын ("") қайтарады.

Барлық бар файлдарды тізімге сұрау жасау үшін келесіні орындаңыз: Dir функциясын бірінші рет шақырғанда файлдар үшін толық іздеуді көрсетіңіз мысалы "D:\Files\*.sxw". Егер жол дүрыс болса және іздеу кезінде кемінде бір файл табылса, Dir функциясы іздеу жолына сәйкес келетін бірінші файлдың атауын қайтарады. Қосымша файлдар атауын қайтару үшін Dir төлбелгісіз қайта шақырыңыз.

Тек журналдарды қайтару үшін төлбелгі параметрін пайдаланыңыз. Үнділіктің атауын анықтағыңыз келсе, дәл соны қолданыңыз (мысалы қатты дискінің бөлімі)

Қате кодтары

5 Іс рәсіміне рұқсатсыз қоңырау шалу

53 файлы табылмады

Мысалы:

Қосымша ExampleDir

REM Барлық файлдар мен журналдарды көрсетеді

sPath ұяшығын жол ретінде қайтару

sDir жол ретінде қайтару, sValue жол ретінде қайтару

sDir="Журналдар:"

sPath = CurDir

sValue = Dir$(sPath + getPathSeparator + "*",16)

Жасау

ЕгерsValue <> "." және sValue <> ".." Содан кейін

егер (GetAttr( sPath + getPathSeparator + sValue) және 16) >0 кем

REM жрналдырды алу

sDir = sDir & chr(13) & sValue

Болса аяқтаңыз

Болса аяқтаңыз

sValue = Dir$

sValue = "" дейін тұйықталу

MsgBox sDir,0,sPath

Аяқталу ішкі элементі


Өнім туралы пікір | Қосымша құжаттама | Сауда белгілері