VBA Access 2010 DIR приводит к пустой строке - PullRequest
Новая
       29

VBA Access 2010 DIR приводит к пустой строке

0 голосов
/ 03 апреля 2019

У меня есть следующий код: 

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

Итак, у меня есть еще 2 подпрограммы с различными текстовыми файлами, которые работают нормально, но этот блок кода не находит xFile, он возвращает пустую строку, котораязаставляет программу отображать сообщение об ошибке окна.Я не могу понять, почему один и тот же код с другим текстовым файлом работает до того, как он достигнет этого кода.Странно то, что иногда он находит правильное имя xFile в режиме отладки, но не при нормальном запуске.Может кто-нибудь помочь мне разобраться?

Спасибо

...