Сохранение в фаил

[TONGIL]

Здравствуйте!!Скажите пожалуйста,нужно чтобы при совпадающим имени выскакивало окно,что такой фаил существует,сохранить в данном файле или нет.Это вроде стандартная функиця,но никак не могу ее найти.
Заранее большое спасибо

[Vinechka]

Код: Выделить всё


If len(dir(path_to_file)) > 0 then
    If MsgBox("File already exists. Overwrite this file?", vbYesNo, "That's the question") = vbYes Then
        'здесь код сохранения в файл с перезаписью содержимого
        'ибо так захотел юзверь
    else
        'перезаписывать не надо
    End If
End if


[Odrick]

Используй FileLen...
Например тупо:

Код: Выделить всё

On Error Resume Next
nLen = FileLen("MyFile.txt")
If nLen > 0 Then
     MsgBox "Файл существует"
Else
     MsgBox "Нет такого файла"
End If


[HotKitten]

Один из способов проверить существование файла, это открыть его на чтение, и проверить флаг ошибки. Если файл не существует, то будет сгенерирована ошибка.
Функция 'Dir$' выполняет туже самую задачу. 'Dir$' вернёт точное имя файла, если он существует, либо пустую строку, если такого файла нет. Например:

If Dir$("C:\WINDOWS\WIN.INI") <> "" Then
'file Win.ini exists!
Else
'file Win.ini does not exist!
End If

[BV]

Это вроде стандартная функиця,но никак не могу ее найти.

flags в OPENFILENAME = OFN_OVERWRITEPROMPT

[DirectXManiac]

Я всегда делаю так

Public Function Exist(File As String) As Boolean
Dim free as integer
free = FreeFile
On Error GoTo Err
Open File For Input As Free
Close Free
Exist = True
Exit Function
Err:
Exist = False
End Function

[DirectXManiac]

Просто и ясно! Если я конечно правильно понял вопрос TONGIL хочет проверить существует ли файл, так?

[Kostyan]

Он наверное уже ничего не хочет

[TONGIL]

Большое спасибо со всем разобрался,только вот небольшие проблемы с проверкой существования фаила.....

[Amed]

TONGIL, пользуйся поиском. Нашел за 5 секунд.

http://bbs.vbstreets.ru/viewtopic.php?t ... 2%D3%C5%D2

[Twister]

Используй FileLen...
Например тупо:

Код: Выделить всё

On Error Resume Next
nLen = FileLen("MyFile.txt")
If nLen > 0 Then
     MsgBox "Файл существует"
Else
     MsgBox "Нет такого файла"
End If


Odrick, а разве не бывает файлов нулевой длинны? Другое дело, что его пожно переписывать не опасаясь за содержимое , но все же...

[Odrick]

Э-э-э. Гм, ты прав, однако