File Exist

[_Vb_N00bie_]

Ok in my program I have a log file that gets displayed in list box when you click a command button but if the log file isnt there it has error file not found so what I want to do is find if the log file exits or not and if it does exist it gets displayed in list box but if its not in the directory of the program then in the lasit box it says No file found... So code/help/ideas anything for this would be GREATLY appreciated

[jim mcnamara]

Function FileExists(filename as str) as Boolean
         FileExists = (Dir(filename) > "")

End Function

Usage:

If FileExists("C:\myfile.log") then 
        ' open the file
Else
        msgbox "File not Found", VbOkOnly
End if

[_Vb_N00bie_]

Originally posted by jim mcnamara

Function FileExists(filename as str) as Boolean
         FileExists = (Dir(filename) > "")

End Function

Usage:

If FileExists("C:\myfile.log") then 
        ' open the file
Else
        msgbox "File not Found", VbOkOnly
End if

That seems pretty sweet but with the code above:

Function FileExists(filename as str) as Boolean
         FileExists = (Dir(filename) > "")
 
End Function

that gives me an error saying"Compile error:
User-defined type not defined"

Whats wrong with it and how do I fix it??? Well thanks and all help is very much welcome

[_Vb_N00bie_]

Could someone please state what the problem in this is? Thanks for your time and help in avance

[The Hobo]

Function FileExists(filename As [b]String[/b]) As Boolean
  FileExists = (Dir(filename) > "")
End Function

[_Vb_N00bie_]

Ok well thanks man but jim had:
If FileExists("C:\myfile.log") then
' open the file
Else
msgbox "File not Found", VbOkOnly
End if

But I dont want it C:\myfile.log I want it LogFile which is located in the programs directory? Thanks for the help everyone

[crptcblade]

If FileExists(App.Path & "\myfile.log") Then '...

[Pyabut]

hey, what if you just want to check if there are any file's with a certain extension ?? ( .txt ?) or any file that starts with a certain character ( as001.txt )

Thanks everyone

[crptcblade]

You should just be able to use the '*' as a wildcard...

If FileExists(App.Path & "\a*.txt") Then '...

[manavo11]

http://www.vbforums.com/showthread.p...hreadid=231656

[Pyabut]

hey , thanks for the help btw

one more question how can i change the path of the APP.PATH ?

Thanks
Paolo

[James Stanich]

App.Path is a variable within VB that hold the current directory path to your app. You want to change it? Install your app someplace else. If you need to set the path, just use something like :

If FileExists("c:\MYPATH\a*.txt") Then '...

App.Path is not necessary...

[Pyabut]

hey thanks, dont know why i didnt think of that...i am such a newbie...but anyway.. i have another question ...how can i put that path into a string....

i would like to open that file ?


thanks

[James Stanich]

Dim STRFILENAME as String
 
STRFILENAME = "C:\TEST.TXT"
 
If FileExistsSTRFILENAME ) Then '...

[Pyabut]

thanks , but this is what i really want to do,and i apologize for not explaining it right...

1. i need to make sure that a file exist on a folder with a .txt extension.

2. after verifying that the fileexist, i would like to open it

3. last is to append some data to that text file.

4.save it as the same filename as number 1


thank you

[Pyabut]

hello ?

Thanks