Проверить существование файла

@analyst · Регистрация: 12.01.2009

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

Здравствуйте, коллеги.
Мне нужно проверить существование файла, название которого не известно заранее. Известна только маска фала, которая задаётся приблизительно так:

Visual Basic

1	"объект_т" + MyName + ".xls"

(MyName-строковая переменная, которая принимает разные значения в зависимости от условия)
Единственное что пока пришло в голову - fileExists метод.
Как написать путь к файлу понятно, но вот как указать объект не очень.
Объясните пожалуйста. Заранее большое спасибо!

@Toxa33rus · 01.07.2009, 16:40

Из названия темы суть вопроса понял, а вот из описания понял что не понял. Если надо проверить есть ли файл то может так:

Visual Basic

Sub test()
res = FileExist("объект_т" + MyName + ".xls")
End Sub
 
Function FileExist(filename As String) As Boolean
    On Error Resume Next
    FileExist = Dir$(filename) <> ""
    If Err.Number <> 0 Then FileExist = False
    On Error GoTo 0
End Function

@Влад77 · 28.11.2018, 12:53

Добрый день.
Помогите, что с моим кодом не так? Запускаю из Access 2003
Sub, Function, or Property not defined (Error 35)

Visual Basic

Sub DeleteFile1(ByVal strTarget As String)
 
   If FileExists(strTarget) Then 
     
   MsgBox ("Файл существует" & strTarget), vbInformation
Else
   MsgBox ("Файл не существует"), vbCritical
End If
End Sub

Я ее вызываю из другой функции:

Visual Basic

1
2
3

strTarget = "s:\mail\Ext1_34.mdb"
MsgBox (strTarget), vbInformation
DeleteFile1 (strTarget)

@Петр Аркадьевич · 28.11.2018, 13:18

Влад77, Вроде как вызывается через Call

PureBasic

1	Call DeleteFile1 (strTarget)

@Влад77 · 28.11.2018, 13:50

Сообщение от Петр Аркадьевич

1
Call DeleteFile1 (strTarget)

Не помогает. Ошибка где то здесь "If FileExists(strTarget) Then"

SoftIce · 28.11.2018, 14:38

Сообщение от Влад77

FileExists

Это функция, её скопировали себе ?

@Влад77 · 28.11.2018, 15:55

Нет, не скопировал. Если функция тогда ясно.

SoftIce · 28.11.2018, 16:03

Сообщение от Влад77

Если функция тогда ясно.

Что ясно ?

Скопируйте себе эту функцию из второго сообщения .

@unick12345 · 28.11.2018, 16:04

Visual Basic

strTarget = "s:\mail\Ext1_34.mdb"
If Dir(strTarget) <> "" Then
MsgBox ("Файл существует" & strTarget), vbInformation
End If

@Влад77 · 28.11.2018, 16:20

Спасибо. Сделал так:

Visual Basic

Sub DeleteFile1(ByVal strTarget As String)
 
   If Not Dir(strTarget) = "" Then
      Kill (strTarget)
      MsgBox ("Старый файл удален " & strTarget), vbInformation
 
End If
End Sub

Если-бы еще можно было проверить возможность удаления файла. То-есть если нет возможности удалить. тогда написать сообщение "Освободите файл базы"

~~Остап Бонд~~ · 28.11.2018, 16:29

Visual Basic

on error resume next
    Kill (strTarget)
    if err then
      MsgBox "ERROR!"
'      err.clear
'      GOTO куда_следует
    else
      MsgBox ("Старый файл удален " & strTarget), vbInformation
    endif
on error goto 0

-это вместо 4 и 5 строки.

@Влад77 · 28.11.2018, 17:17

Спасибо все получилось.

@Влад77 0 / 0 / 0 Регистрация: 11.08.2015 Сообщений: 17
	28.11.2018, 13:50	5
	Сообщение от Петр Аркадьевич 1 Call DeleteFile1 (strTarget) Не помогает. Ошибка где то здесь "If FileExists(strTarget) Then" 0

SoftIce es geht mir gut 11270 / 4752 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	28.11.2018, 14:38	6
	Сообщение от Влад77 FileExists Это функция, её скопировали себе ? 0

@Влад77 0 / 0 / 0 Регистрация: 11.08.2015 Сообщений: 17
	28.11.2018, 15:55	7
	Нет, не скопировал. Если функция тогда ясно. 0

SoftIce es geht mir gut 11270 / 4752 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	28.11.2018, 16:03	8
	Сообщение от Влад77 Если функция тогда ясно. Что ясно ? Скопируйте себе эту функцию из второго сообщения . 1

@Влад77 0 / 0 / 0 Регистрация: 11.08.2015 Сообщений: 17
	28.11.2018, 17:17	12
	Спасибо все получилось. 0