Как проверить сущестувет ли файл?

@11BOSS11 · Регистрация: 11.07.2010

Студворк — интернет-сервис помощи студентам

каким оператором можно проверить существует ли файл на компютере?
например файл : "C:\temp\test.txt"
нужно в итоге иметь ответ тру (если есть такой) или фолсе(если нету)..
в скриптовнике чтото не наблюдаю.. :angry2:

@mvyush · 06.12.2010, 13:43

dir

@ToxoRot · 06.12.2010, 14:06

11BOSS11
открыть его на чтение - проверишь существует ли он
открыть его на запись - проверишь свободен ли он

ну и обработчик ошибок

@vytfyt · 06.12.2010, 14:10

ToxaRat
Открыть его на чтение и получить исключение потому как нет прав.
Открыть его на запись... см.выше.

@ToxoRot · 06.12.2010, 15:30

Сообщение от vitfil

Открыть его на чтение и получить исключение потому как нет прав.

если у агента 1й тип секюрити то никогда и не узнаешь если ли файл

@Omh · 06.12.2010, 15:48

Dir

@mvyush · 06.12.2010, 15:58

LotusScript
1
2
3
Function IsFileExist(filePath As String) As Boolean
IsFileExist = (Dir$(filePath) <> "")
End Function

@ToxoRot · 07.12.2010, 10:03

nvy
не, дир так не пашет, там сначала тип и путь указываем а потом проходим поэлементно

@11BOSS11 · 07.12.2010, 10:20

ф-я работает :what?:
СпасибКо всем!
ээ...у мну мозила слитела чтото.. немогу поблагодарить никого.. разберусь,исправлюсь!=))

@mvyush · 07.12.2010, 10:22

ToxaRat
Сам не проверял, верю справке:

To determine whether a particular file exists, use an exact file name for the file_spec argument to Dir or Dir$. The return value is either the file name or, if the file does not exist, the empty string ("").

@ToxoRot · 07.12.2010, 12:22

LotusScript
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function IsFileOrFolderExist(FilePath As String, Filename As String, TypeSearch As Integer) As Boolean  узнаём что файл существует
IsFileOrFolderExist=False
On Error Goto EDLB
fileNameArray = Dir$(FilePath, TypeSearch)
Do While fileNameArray <> ""
If fileNameArray = Filename Then IsFileOrFolderExist=True :Exit Function
fileNameArray = Dir$()
Loop
Exit Function
EDLB:
Call MylogError({IsFileOrFolderExist, FilePath=} & FilePath & {, Filename=} & Filename & {, TypeSearch=} & TypeSearch)
Err=0
Exit Function
End Function

@mvyush · 07.12.2010, 12:51

ToxaRat
Проверил работоспособность предложенной в посте http:///ipb.html?s=&sh...st&p=194160 функции. Очень даже работает. Можно, конечно, добавить Dir-овский параметр attributeMask и обработку ошибок, но это на любителя. А перебирать все файлы, КМК, будет дольше.

@ToxoRot · 09.12.2010, 14:31

Сообщение от nvy

Проверил работоспособность предложенной в посте http:///ipb.html?s=&sh...st&p=194160 функции. Очень даже работает. Можно, конечно, добавить Dir-овский параметр attributeMask и обработку ошибок, но это на любителя. А перебирать все файлы, КМК, будет дольше.

и даже не отбивает ошибку если корневой директории нету?

@mvyush · 09.12.2010, 14:51

Сообщение от ToxaRat

и даже не отбивает ошибку если корневой директории нету?

Разумеется, отбивает. Я же указал:

Сообщение от nvy

Можно, конечно, добавить Dir-овский параметр attributeMask и обработку ошибок, но это на любителя.

Я привёл только заготовку, вот более приближенный к рабочему вариант:

Code
1
2
3
4
5
6
7
8
Function IsFileExist(filePath As String, attributeMask As Integer) As Boolean
On Error Goto ErrorHandler
IsFileExist = (Dir$(filePath, attributeMask) <> "")
Exit Function
ErrorHandler:
IsFileExist = False
Resume Next
End Function

@Kyy_Kyykkymym · 09.12.2010, 20:30

мне мое ближе

Code
1
2
3
4
5
6
7
8
9
10
Function checkFile(filePath As String) As Boolean
Dim attr As Integer
try:
On Error Goto catch
attr = Getfileattr(filePath)
If attr >= 32 And attr < 48 Then checkFile = True
Exit Function
catch:
Resume Next
End Function

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .

@11BOSS11 0 / 0 / 0 Регистрация: 11.07.2010 Сообщений: 180

	Как проверить сущестувет ли файл? 06.12.2010, 13:40. Показов 21884. Ответов 14 Метки нет (Все метки) каким оператором можно проверить существует ли файл на компютере? например файл : "C:\temp\test.txt" нужно в итоге иметь ответ тру (если есть такой) или фолсе(если нету).. в скриптовнике чтото не наблюдаю.. :angry2: 0

@mvyush 0 / 0 / 0 Регистрация: 19.04.2009 Сообщений: 2,219
	06.12.2010, 13:43
	dir 0

@ToxoRot 0 / 0 / 0 Регистрация: 04.11.2007 Сообщений: 3,019
	06.12.2010, 14:06
	11BOSS11 открыть его на чтение - проверишь существует ли он открыть его на запись - проверишь свободен ли он ну и обработчик ошибок 0

@vytfyt 0 / 0 / 0 Регистрация: 28.03.2004 Сообщений: 1,913
	06.12.2010, 14:10
	ToxaRat Открыть его на чтение и получить исключение потому как нет прав. Открыть его на запись... см.выше. 0

@Omh 0 / 0 / 1 Регистрация: 30.06.2007 Сообщений: 2,153
	06.12.2010, 15:48
	Dir 0

@ToxoRot 0 / 0 / 0 Регистрация: 04.11.2007 Сообщений: 3,019
	07.12.2010, 10:03
	nvy не, дир так не пашет, там сначала тип и путь указываем а потом проходим поэлементно 0

@11BOSS11 0 / 0 / 0 Регистрация: 11.07.2010 Сообщений: 180
	07.12.2010, 10:20
	ф-я работает :what?: СпасибКо всем! ээ...у мну мозила слитела чтото.. немогу поблагодарить никого.. разберусь,исправлюсь!=)) 0

@mvyush 0 / 0 / 0 Регистрация: 19.04.2009 Сообщений: 2,219
	07.12.2010, 12:51
	ToxaRat Проверил работоспособность предложенной в посте http:///ipb.html?s=&sh...st&p=194160 функции. Очень даже работает. Можно, конечно, добавить Dir-овский параметр attributeMask и обработку ошибок, но это на любителя. А перебирать все файлы, КМК, будет дольше. 0