Question

我有以下代码：

Private Sub cmdExportTERNAME_Click()

On Error Resume Next

Me.MsgFld = "Please wait... exporting TERNAME file."

Dim expLoc As String
Dim xFile As String, myFile As String
Dim myFlag As Integer

expLoc = "I:\Investigative Names\"           ' PRD

xFile = Dir(expLoc & "NAME - ForUpload.txt", vbDirectory)
myFile = "NAME-ForUpload.txt"
myFlag = StrComp(xFile, myFile)
If myFlag <> -1 Then
   Kill expLoc & "NAME-ForUpload.txt"
End If

' Export text files for upload
DoCmd.TransferText acExportFixed, "SpecTERNAME", "qry_TERNAME", expLoc & "NAME-ForUpload.txt"

xFile = Dir(expLoc & "TNAME-ForUpload.txt")
myFile = "NAME-ForUpload.txt"
myFlag = StrComp(xFile, myFile)
If myFlag <> -1 Then
   GoTo ContinueProcessing1
Else
   MsgBox "The program was not able to export the NAME file for upload." & Chr(13) & Chr(13) & "Please notify IS Department.", vbCritical, "ERROR MESSAGE BOX"
   GoTo exitRTN
End If

ContinueProcessing1:

exitRTN:

End Sub

因此，我还有另外两个带有不同文本文件的子例程，这些子例程可以正常工作，但是此代码块找不到xFile，它返回一个空字符串，这将导致程序显示消息框错误。我无法弄清楚为什么带有不同文本文件的相同代码在到达此代码之前就可以工作。奇怪的是，有时它会在调试模式下找到正确的xFile名称，但在正常运行时找不到。有人可以帮我解决这个问题吗？

谢谢

VBA Access 2010 DIR结果为空字符串

0 个答案: