Question

我在FrontEnd和BackEnd中有一个数据库分割。

我让它运行： i）在我的办公室 ii）在我的个人计算机中更新/测试。

我的BackEnd文件根据计算机运行在不同的文件夹位置运行。

我想放置一个代码并检查文件是否存在。

代码：

Sub FileExists()
Dim strPath As String   '<== Office.
Dim strApplicationFolder As String
Dim strPathAdmin As String   '<== Admin.

strPath = "\\iMac\Temp\"
strApplicationFolder = Application.CurrentProject.Path
strPathAdmin = strApplicationFolder & "\Temp\"

If Dir(strApplicationFolder & "SerialKey.txt") = "" Then
'===> Admin User.
    If Dir(strPathAdmin & "*.*") = "" Then
        '===> Empty Folder.
    Else
        '===> Files on folder.
    End If
Else
    '===> Office User.
    If Dir(strPath & "*.*") = "" Then
        '===> Empty Folder.
    Else
        '===> Files on folder.
    End If
End If
End Sub()

我到现在为止。

任何帮助。

谢谢...

Answer 1

创建一个小函数来检查文件是否存在，并在需要时调用它。

Public Function FileExists(ByVal path_ As String) As Boolean
    FileExists = (Len(Dir(path_)) > 0)
End Function

由于后端数据库路径没有改变，为什么不声明两个常量并只检查它们的值？

Sub Exist()

    Const workFolder As String = "C:\Work Folder\backend.accdb"
    Const personalFolder As String = "D:\Personal Folder\backend.accdb"

    If FileExists(workFolder) Then
        'Work folder exists
    End If

    '....

    If FileExists(personalFolder) Then
        'Personal folder exists
    End If
End Sub

访问vba检查文件是否存在

1 个答案: