| Вопрос: проверка есть ли файл | Добавлено: 09.01.07 11:30 |
Автор вопроса:  alroy
|
| Глючу после нового года помогите пожалуйста срочно надо мне надо скопировать файл но токо в том случае если он там есть но имя файла я знать не буду как перед копированием проверить есть ли файлы в папке а потом копировать ???? |
| Ответы | Всего ответов: 6 |
|
Номер ответа: 1 Автор ответа:  alroy Вопросов: 3 Ответов: 28 |
Профиль | | #1 | Добавлено: 09.01.07 12:09 |
|
Все вопрос снимаю разобрался кому интересно то вот !!!!!
MsgBox dir_full ("c:\temp\" 
Function dir_full (dir)' функция file_exist с таким заданием тоже справится, но эта короче dir_full=0  im fso
im path
Set fso = CreateObject("Scripting.FileSystemObject"
Set path = fso.GetFolder(dir) if path.Files.count >0 Then dir_full=1'если своиство объекта - указателя на директорий колличество файлов в нем больше 0 end Function If dir_full ("c:\WinPost\podp\" > 0 Then
MsgBox "Файлы в каталоге есть" Else MsgBox "Файлы в каталоге НЕТ" End If |
||
|
Номер ответа: 2 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #2 | Добавлено: 09.01.07 20:38 |
|
Private Function MyFileExist(ByVal sDir As String) As Boolean
Dim FileName As String FileName = Dir(sDir) If Len(FileName) <> 0 Then MyFileExist = True End Function |
||
|
Номер ответа: 3 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #3 | Добавлено: 09.01.07 21:01 |
|
Private Function MyFileExist(ByVal sDir As String) As Boolean
If Len(Dir(sDir)) <> 0 Then MyFileExist = True End Function 
|
||
|
Номер ответа: 4 Автор ответа: Sacred Phoenix ICQ: 304238252 Вопросов: 52 Ответов: 927 |
Профиль | | #4 | Добавлено: 09.01.07 22:12 |
|
Private Function MyFileExist(ByVal sDir As String) As Boolean
MyFileExist = (Len(Dir(sDir)) <> 0) End Function
Кстати sDir должен быть в кавычках, иначе ф-ция какой-нить C:\Documents and Settings\Admin\Hello.txt не надйет Глючу после нового года помогите пожалуйста срочно надо мне надо скопировать файл но токо в том случае если он там есть но имя файла я знать не буду как перед копированием проверить есть ли файлы в папке а потом копировать товарисчи, ни одной запятой!!! Это ж КАШМАР!!!
|
||
|
Номер ответа: 5 Автор ответа: ElkatibВопросов: 18 Ответов: 25 |
Профиль | | #5 | Добавлено: 10.01.07 16:21 |
|
Dim objFSO As FileSystemObject
Set objFSO = New FileSystemObject objFSO.FolderExists("C:\test.txt" ' Возвращает True или False
|
||
|
Номер ответа: 6 Автор ответа: PavelВопросов: 0 Ответов: 82 |
Профиль | | #6 | Добавлено: 21.05.07 21:07 |
| Может objFSO.FileExists ? а то вы методом FolderExists проверяете наличие не папки, а файла | ||
Страница: 1 |