ErrorMessage when file is missing

[reidarT]

Dim Kildefil as object

Kildefil = "H:\dbBil\dbBil.mdb"

if not Dir(Kildefil)) Then
else
Msgbox("Can't find file!",msgboxstyle.information,conMelding)
end if

I get this error when file is missing.

Change form string to type Long is not legal.
regards
reidarT

 

[Jim Edgar]

Dim Kildefil as object

Kildefil = "H:\dbBil\dbBil.mdb"

if not Dir(Kildefil)) Then
else
Msgbox("Can't find file!",msgboxstyle.information,conMelding)
end if

I get this error when file is missing.

Change form string to type Long is not legal.
regards
reidarT

The Dir() function returns a string and the syntax you used
*may* be trying to coerce the string to a long. Try this
syntax:

If Dir(Kildefil) <> "" Then
' Found the file
Else
' File not found
Msgbox("Can't find file!",msgboxstyle.information,conMelding)
End If

HTH,

J Edgar

 

[Herfried K. Wagner [MVP]]

Dim Kildefil as object

Kildefil = "H:\dbBil\dbBil.mdb"

if not Dir(Kildefil)) Then
else
Msgbox("Can't find file!",msgboxstyle.information,conMelding)
end if

I get this error when file is missing.

*Never* use 'Dir' to check if a file exists. Use 'System.IO.File.Exists'
instead.

 

[Cor Ligthert]

Reidar,

In VBNet are easier functions for that.

If Not file.exist("H:\dbBil\dbBil.mdb") then; is the one I like the most,
however there is as well

If Fileinfo.exist(("H:\dbBil\dbBil.mdb")

The last class can give a lot of information about files as well.

I hope this helps?

Cor

 

[Herfried K. Wagner [MVP]]

Cor,

If Fileinfo.exist(("H:\dbBil\dbBil.mdb")

'Exists' is an instance method of 'FileInfo'.

 

[Cor Ligthert]

Herfried,

I was already waiting for this message.



Cor