Batya
|
 Posted: Wed Dec 23, 2009 01:06 Post subject: |
 |
|
Andrey_A
Хм... Опять впопыхах дал неправильный ответ.
Скрипт вот такой:
| Code: | '========== Изменяемые параметры ===========================================
Const FileList = "C:\FileList.txt" 'Файл-список
'===========================================================================
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
Const ForReading = 1
content = Result
Function Result
Dim List, f
Result = 0
If Not FSO.FolderExists(filename) Then Exit Function
If Not FSO.FileExists(FileList) Then Exit Function
On Error Resume Next
List = FSO.OpenTextFile(FileList, ForReading, False).ReadAll
If Err.Number <> 0 Then Exit Function
On Error GoTo 0
For Each f In Split(List, vbNewLine)
If f <> "" Then If FSO.FileExists(filename & "\" & f) Then Result = 1
Next
End Function |
script.ini:
| Code: | [Script]
Section=General
[General]
ParseDirs=1
Script=General.vbs |
Соответственно, если в файле "C:\FileList.txt" содержится, например, script.ini, то для папки, содержащей этот файл вернется 1, иначе 0.
Last edited by Batya on Wed Dec 23, 2009 10:22; edited 1 time in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
