Progress-servis55.ru

Новости из мира ПК
1 просмотров
Рейтинг статьи
1 звезда2 звезды3 звезды4 звезды5 звезд
Загрузка...

Vba excel проверка наличия файла

Vba excel проверка наличия файла

goro » 26.04.2003 (Сб) 15:12

Damage » 26.04.2003 (Сб) 15:14

вот код функции
Код: Выделить всё Private Declare Function PathFileExists Lib «shlwapi.dll» Alias «PathFileExistsA» (ByVal pszPath As String) As Long

возвращает 1 если существует

RayShade » 28.04.2003 (Пн) 10:33

А поискать лень что ли было? Этот вопрос уже поднимался сто раз.

И делается все очень просто и без API:

Код: Выделить всё If Len(Dir(Fname))>0 Then MsgBox «Файл » & Fname & » существует.»

goro » 28.04.2003 (Пн) 15:41

Emzari » 30.04.2003 (Ср) 15:38

привет всем

сначала проекту подключаеш Microsoft scripting runtime через диалоговое окно Refferenses

Dim FSO As New FileSystemObject

IF FSO.FileExists(Text1.Text)=True Then
‘фаил сушествует
Else
‘фаил не сушествует
End IF

Не проверял но должен работать

GoGosha » 30.04.2003 (Ср) 16:16

Emzari писал(а): привет всем

сначала проекту подключаеш Microsoft scripting runtime через диалоговое окно Refferenses

Dim FSO As New FileSystemObject

IF FSO.FileExists(Text1.Text)=True Then
‘фаил сушествует
Else
‘фаил не сушествует
End IF

Не проверял но должен работать

Этот кодв отличие от Dir провеяет наличие ФАЙЛА, а Dir может реагировать и на папки

goro » 30.04.2003 (Ср) 17:06

Emzari » 01.05.2003 (Чт) 14:44

проверить сушествует или нет папка можно точно также

IF FSO.FolderExists(Text1.Text)=True Then
‘Папка сушествует
Else
‘Папка не сушествует
End IF

Firestorm » 01.05.2003 (Чт) 20:21

Emzari писал(а): проверить сушествует или нет папка можно точно также

IF FSO.FolderExists(Text1.Text)=True Then
‘Папка сушествует
Else
‘Папка не сушествует
End IF

можно и файл и папку проверить (аналогично примеру RayShade’а) как if dir$(путь к папке или файлу) <> «» then msgbox «существует»

Читать еще:  Транспонировать ячейки excel

v-adix » 06.05.2003 (Вт) 8:51

ASD » 06.05.2003 (Вт) 10:41

Согласен. Проще некуда.

-=Jaga=- » 29.10.2007 (Пн) 9:13

HandKot » 29.10.2007 (Пн) 9:35

alibek » 29.10.2007 (Пн) 9:38

-=Jaga=- » 29.10.2007 (Пн) 10:11

Немного не о том просил. Мне нужно проверить есть ли файлы и папки на диске не зная конкретного имени папок и файлов.
Не просто пуст диск или не пуст.

Таким образом не работает:
Код: Выделить всё fso.FileExists «A:*.*»
fso.FolderExists «A:*»

Как возможно проверить?

alibek » 29.10.2007 (Пн) 10:24

-=Jaga=- » 29.10.2007 (Пн) 13:28

Ссылка на основную публикацию
Adblock
detector