Помогите советом при работе с файлом??

[TONGIL]

Здравствуйте!!у меня вот какая проблема!!Я написал относительно простую программу,результаты у меня сохраняются в фаил *.txt,решил усовершенствовать программу в том плане,что при каждом расчете при сохранении в фаил с тем же названием она спрашивала у человека стоит ли сохранять или нет или сохранить под другим именем.
Но он не верный потому как она все время спрашивает,заменить существующий фаил или нет,даже если это фаила нет в данной директории.
Вот этот код:
Private Sub Command3_Click()
CommonDialog1.ShowSave
On Error Resume Next
Create_File
If (DoesFileExist(CommonDialog1.FileName) = True) Then
If MsgBox("Заменить существующий файл?", vbYesNo, "Файл существует!") = vbYes Then
Create_File
Else
CommonDialog1.FileName = "*.txt"
CommonDialog1.ShowSave
Create_File
End If
End If
End Sub

Объясните пожалуйста что не так,я только начал программировать в VB,помогите пожалуйста очень надо,что нужно исправить.
Заранее большое спасибо.

[Крост]

Убрать "Create_File" перед "If (Does...."

[Grey_Brother]

При открытии файла, смотри его длинну.

[GB826]

Dir

:о)

[TONGIL]

Честно сказать не понимаю как исправить,а можно поконкретнее удаление Create_File перед If не помогает(((

[zulus]

если совсем просто (без FSO), то:
[хотя есть возможность сделать проверку через флаги коммона]


Private Sub Command3_Click()
Dim cf as long,fname as string,cfree%

On Error Resume Next
CommonDialog1.ShowSave
CommonDialog1.FilterIndex = "All text files (*.txt)|*.txt"

fname=CommoDialog1.FileName
cf=CheckForFile(fname)

cfree%=freefile
If са=1 Then
If MsgBox("Заменить существующий файл?", vbYesNo, "Файл существует!") = vbYes Then
'сохранешь сюда свой текст (способов полно, поэтому не пишу ничего)
End If
elseif ca=2 then
'сохранешь сюда свой текст (способов полно, поэтому не пишу ничего)
end if

End Sub


Public Function CheckForFile(cFile as String) as Long
Dim I&,cfree%

on error goto errcheck
cfree%=freefile
open cfile for input as#cfree%
close#cfree%
CheckForFile=1 'файл есть

exit function

errcheck:
CheckForFile=2 'файла нет
End Function

[Ramauf]

Действительно, посмотри длинну файла (FileLen), а потом уже манипулируй.

[Ramauf]

Только сначала посмотри, а потом делай Open file1 for че-то_та и т.д. Ато он сразу сождает когда open for output делаешь.

[GB826]

А что Dir не помог?

[mdx]

Ну зачем, спрашивается, столько кода . Можно просто перед ShowSave ставить

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

CommonDialog1.Flags = cdlOFNExplorer Or cdlOFNOverwritePrompt Or cdlOFNPathMustExist

[zulus]

Как зачем? А вдруг чел прогу переделает и не будет в ней CommoDialog, что тогда? Сушить весла?