Visual Basic (VB and VBA)

Copyright 1999-2001 Christopher Greaves. All rights reserved. Home Page and email to [email protected]

If in doubt, record a macro and inspect the entrails!

Here is an INDEX to all the procedures.

You will probably need one copy of my GLOBAL DECLARATIONS.

Public Function boolFileExists(strFile As String) As Boolean
' Procedure :   boolFileExists
' Description:  This code determines if a file exists.
' Copyright: Chris Greaves Inc.
' Inputs:       A possibly empty string representing a possible legal file path and name.
' Returns:      A boolean, TRUE if the file is available to the caller.
' Assumes:      Nothing
' Side Effects: None.
' Tested:       By the calls shown below.
    boolFileExists = False
    Dim strFullName As String
    strFullName = strFile
    If InStr(1, strFile, Application.PathSeparator) > 0 Then
    Else
        strFullName = Options.DefaultFilePath(wdDocumentsPath) & Application.PathSeparator & strFile
    End If
    On Error GoTo Failed
    boolFileExists = (FileLen(strFile) = FileLen(strFile))
    boolFileExists = True
Failed:
'Sub TESTboolFileExists()
'    MsgBox boolFileExists("c:\autoexec.bat") ' Generally you will find this.
'    MsgBox boolFileExists("autoexec.bat") ' Only if your default directory is C:\
'    MsgBox boolFileExists("c:\ausoexec.bat") ' Mis-spelled the name
'    MsgBox boolFileExists("") ' Empty string
'    MsgBox boolFileExists("*&^%$#@!") ' Illegal file name constructed here.
'    MsgBox boolFileExists(32) ' Used a file handle? ooops!
'End Sub
End Function

We all knew nothing when we started …

Home Page and Contact Information Send email to [email protected]. This page was last updated Thursday, November 15, 2001

Visual Basic (VB and VBA)

Copyright 1999-2001 Christopher Greaves. All rights reserved. Home Page and email to [email protected]

If in doubt, record a macro and inspect the entrails!

Here is an INDEX to all the procedures.

You will probably need one copy of my GLOBAL DECLARATIONS.

Public Function boolFileExists(strFile As String) As Boolean
' Procedure :   boolFileExists
' Description:  This code determines if a file exists.
' Copyright: Chris Greaves Inc.
' Inputs:       A possibly empty string representing a possible legal file path and name.
' Returns:      A boolean, TRUE if the file is available to the caller.
' Assumes:      Nothing
' Side Effects: None.
' Tested:       By the calls shown below.
    boolFileExists = False
    Dim strFullName As String
    strFullName = strFile
    If InStr(1, strFile, Application.PathSeparator) > 0 Then
    Else
        strFullName = Options.DefaultFilePath(wdDocumentsPath) & Application.PathSeparator & strFile
    End If
    On Error GoTo Failed
    boolFileExists = (FileLen(strFile) = FileLen(strFile))
    boolFileExists = True
Failed:
'Sub TESTboolFileExists()
'    MsgBox boolFileExists("c:\autoexec.bat") ' Generally you will find this.
'    MsgBox boolFileExists("autoexec.bat") ' Only if your default directory is C:\
'    MsgBox boolFileExists("c:\ausoexec.bat") ' Mis-spelled the name
'    MsgBox boolFileExists("") ' Empty string
'    MsgBox boolFileExists("*&^%$#@!") ' Illegal file name constructed here.
'    MsgBox boolFileExists(32) ' Used a file handle? ooops!
'End Sub
End Function

We all knew nothing when we started …

Home Page and Contact Information Send email to [email protected]. This page was last updated Thursday, November 15, 2001