Solved Browsing for file code issues

[5hadow]

Hello,

Is there something obvious why my code below does not work?

Private Sub btnBrowse_Click()
  
    ' File targets
    Dim sourceFile, targetFile, target As String
  
    ' Error Location
    On Error GoTo Error_btnBrowse_Click

    ' Check to see if its an add or remove
    If btnBrowse.Caption = "Browse" Then
      
        With Application.FileDialog(3)
      
            .Title = "Choose WI File Location"
            .InitialFileName = DLookup("fileBaseOutput", "tblConfig")
            .AllowMultiSelect = False
          
            ' Show the box
            If .show = -1 Then
              
                ' Get the name
                sourceFile = .SelectedItems(1)
                  
                target = Right(sourceFile, Len(sourceFile) - InStrRev(sourceFile, "\"))
                targetFile = DLookup("fileBaseOutput", "tblConfig") + "\" + target
              
                If Not FileExist(targetFile) Then
                MoveFile sourceFile, targetFile
                End If
              
                ' Set the old data to nothing
                txtLocation.Value = target
                btnBrowse.Caption = "Remove"
          
            End If
          
        End With
  
    ElseIf btnBrowse.Caption = "Remove" Then
  
        ' Set the temporary name for the file
        Dim tempFileName As String
        tempFileName = txtLocation.Value
      
        ' Rename the button
        btnBrowse.Caption = "Browse"
      
        ' Requery to get the data
        txtLocation.Value = ""
      
        sourceFile = DLookup("fileNotices", "tblConfig") + "\" + tempFileName
        targetDir = Application.CurrentProject.Path + "\Removed"
        targetFile = targetDir + "\" + tempFileName
      
        ' Make a removed directory
        If Not FolderExists(targetDir) Then
            MkDir targetDir
        End If
      
        ' Delete the file in removed
        If FileExists(targetFile) Then
            Kill targetFile
        End If
      
        ' Move the file
        MoveFile sourceFile, targetFile
      
    End If
  
    ' Requery
    DoCmd.RunCommand acCmdSaveRecord
  
    ' Get Out
    Exit Sub

I get "Compile Error" Sub or function not defined

 

[Isaac]

You need some function called FileExists. Can't call it if it doesn't exist!

 

[5hadow]

You need some function called FileExists. Can't call it if it doesn't exist!

That makes sense. I'm looking trough this inherited code to see if it's defined somewhere else.

 

[Isaac]

Can do Ctrl+F to Find Function FileExists text

 

[5hadow]

Can do Ctrl+F to Find Function FileExists text

Yep, found it!
Thanks!

 

[isladogs]

The code in post #1 actually says FileExist without an S at the end. Should it actually say FileExists?

 

[moke123]

Personally I would have a public function to browse for the file which would clean out a lot of what you have. I might also consider using fileSystemObject .

One thing that stands out is that you are using a + sign to concatenate. If there is a null in the string then the resultant string will be null. Use the & to concatenate.

 

[Gasman]

The code in post #1 actually says FileExist without an S at the end. Should it actually say FileExists?

It has both?

 

[isladogs]

It has both?

It does indeed though I was referring to the highlighted code causing the compile error

 

[Gasman]

I'm going to go with your idea due to the FolderExists

 

[Isaac]

Yep, found it!
Thanks!

Glad you were able to locate it, good luck!