Batya
|
 Posted: Fri Jun 15, 2007 12:59 Post subject: |
 |
|
Используем Script Content Plugin. Т.к. плагин может возвращать только одно поле, если ранее этот плагин использовался, копируем папку с плагином и переименовываем в новой папке wdx. Подключаем новый wdx.
Редактируем script.ini:
| Code: | [Script]
Section=File presence in folder
[File presence in folder]
Script=FilePresence.vbs
LongName=1
ParseDirs=1 |
В каталоге плагина должен лежать FilePresence.vbs:
| Code: | Dim FSO, Ext
'==============================
Ext = "zip"
'==============================
Set FSO = CreateObject("Scripting.FileSystemObject")
content = 0
If FSO.FolderExists(FileName) Then
Dim Fold, F
Set Fold = FSO.GetFolder(Filename)
For Each F In Fold.Files
If LCase(FSO.GetExtensionName(F)) = LCase(Ext) Then
content = 1
Exit For
End If
Next
End If |
Здесь надо переменной Ext задать нужное значение. Соответственно, плагин для папки будет возвращать 0, если в ней нет файлов с расширением, заданным перенноой Ext. Если в папке такие файлы есть, возвращается 1. Для файлов всегда возвращается 0. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
