none
Problem with file RRS feed

  • Question

  • Hi,
    I get 

    File does not exist
    


    due to last line below

    Sub Validate_File(Para_Folder As String, Para_File As Variant, Para_Message As String)
        Dim File0 As String, File1 As String, Pos0 As Integer, Pos1 As Integer, UNB_Exist As Boolean, UNZ_Exist As Boolean
        File0 = "C:\cmp3g\CODECO_ERROR_0\" & Para_Folder & "\" & Para_File
        'File1 = "C:\cmp3g\CODECO_ERROR_0\Error" & Format(Now, "mmss") & ".txt"
        File1 = "C:\cmp3g\CODECO_ERROR_0\Error " & Para_Folder & " " & Format(Now, "mmss") & ".txt"
        
        Dim fs, f
        Set fs = CreateObject("Scripting.FileSystemObject")
    
        Dim iFile As Integer
        iFile = FreeFile
        UNB_Exist = False: UNZ_Exist = False
        Open File0 For Input As #iFile
        


    while I've checked that the relevant file name does exist within the folder. Why?

    Many Thanks & Best Regards, Hua Min

    Monday, May 16, 2016 9:06 AM

Answers

All replies