Here is a handy little tip (and function) for all you Visual Basic developers out there. I use this quite often, it’s useful to see if whatever file you are working with or looking for exists before you start trying to access it. So, here we have a nice little function you can drop into a module and call from anywhere when you need it.
(Need to do the same for a directory? That function is here!)
Check it out:
Public Function fFileExists(ByVal FileName As String) As Boolean Dim TempAttr As Integer On Error GoTo ErrorFileExist TempAttr = GetAttr(FileName) fFileExists = ((TempAttr And vbDirectory) = 0) GoTo ExitFileExist ErrorFileExist: fFileExists = False Resume ExitFileExist ExitFileExist: On Error GoTo 0 End Function
There you have it! Just call it in an IF statement like so:
if fFileExists("c:\temp\myfile.txt") then ' Hey, it's there else ' Nope, no file here end if
It’s just that easy, enjoy!
Loading ...
