Saving a file

[Matt-D]

I'm saving a listbox to a normal Text-File
with a common dialogue.
Now I want, that a message box appears when a
file(name) alredy exists. There, the user can decide,
if he wants to overwright the old file.

How do I program this message box in VB3 ???

Thanks for some help, Matt

[REM]

I don't know if this will work in VB3, but give it a go... Set the following flag for the file save dialogue.

cdlOfNOOverwritePrompt

Private sub cmdSave_Click()
Dim strFilename as string

'common dialogue called cdl1

'Prompt the user if they select a file that already exists.
cdl1.Flags = cdlOfNOOverwritePrompt
cdl1.ShowSave
strFilename = cdl1.Filename

End sub

If you just want to check the existence of a file, use DIR as Batman mentioned.

'Function...
Public Function FileExists(ByVal strFilename as string) As Boolean
    
    If Dir(strFilename, vbNormal) <> "" Then
        FileExists = True
    Else
        FileExists = False
    End If

End Function

'To use call the following.
Dim intRet as integer

If FileExists("C:\Text.txt") Then
     intRet = Msgbox("Are you sure you want to overwrite the file " & strFilename & " ?", vbYesNO + vbdefaultButton2)
     Select Case intRet
          Case vbYes
          'Overwrite file
     Case Else
          exit sub
     End select
Else
'Save file, it doesn't al ready exist.
End IF

Hope this helps in some way.

Laterz

REM

[mwildam]

Here is another method for checking file existence as I read somewhere that the GetAttr method is a little faster than the Dir function.

Public Function Exist(FileOrDirName As String) As Boolean
Dim FNum As Integer
Dim a As Integer

On Error Resume Next
Err.Clear
If InStr(1, FileOrDirName, "*") = 0 And InStr(1, DateiOderVerzName, "?") = 0 Then
a = GetAttr(FileOrDirName)
If Err.Number <> 0 Then
Exist = False
Err.Clear
Else
Exist = True
End If
Else
If Dir(FileOrDirName) <> "" Then Exist = True Else Exist = False
End If
End Function


Here 2 functions for separate check if a file or folder exists:

Public Function CheckFile(FileName As String) As Boolean
Dim a As Integer

On Error Resume Next
Err.Clear
a = GetAttr(FileName)
If Err.Number <> 0 Or ((a And vbDirectory) = vbDirectory) Then
Err.Clear
CheckFile = False
Else
CheckFile = True
End If
End Function

Public Function CheckDir(DirName As String) As Boolean
Dim a As Integer

On Error Resume Next
Err.Clear
a = GetAttr(DirName)
If Err.Number <> 0 Or ((a And vbDirectory) <> vbDirectory) Then
Err.Clear
CheckDir = False
Else
CheckDir = True
End If
End Function

[fernando.pires]

Use the FileLen function.

If it returns a error then the file does not exist.

[solDragon]

If you OR the Dir arguments together, then one function can be used for all types of files or directories.

'Find out if a file (or directory) exists
Private Function Exists(ByVal sFileNameA As String) As Boolean

    Dim bExists As Boolean
    
    bExists = False
    If Dir$(sFileNameA, vbNormal + vbHidden + vbSystem + vbVolume + _
        vbDirectory) <> "" Then
        bExists = True
    End If

    Exists = bExists
    
End Function

[kedaman]

As a rule use OR operator instead of + when you add flags,

Fileexist=cbool(len(Dir$(FileName, vbNormal OR vbHidden OR vbSystem OR vbVolume OR vbDirectory)))