Open file location

[mester]

Hi everyone,
I have a form where i have a text zone and a botton. I need a vba code to use in that botton which help me to only open the file location that i have its path in the text zone.
Let's say the text zone is named "txtfilepath" and the botton is named "openfilelocation".
Could anyone help me to do that please?

 

[June7]

Explore FollowHyperlink method Application.FollowHyperlink method (Access) | Microsoft Docs

FollowHyperlink txtfilepath

 

[mester]

Explore FollowHyperlink method Application.FollowHyperlink method (Access) | Microsoft Docs

FollowHyperlink txtfilepath

Thanks June7 , i'll see that.

 

[mester]

Explore FollowHyperlink method Application.FollowHyperlink method (Access) | Microsoft Docs

FollowHyperlink txtfilepath

Hi, i hope you are fine,
That code works good for me, but it opens that attachement if it is pdf or world or excel, what i want is just show me where is it and not open it for me.

 

[arnelgp]

Private Sub openfilelocation_Click()
Dim i As Integer
If Len(Me!txtfilepath & "") <> 0 Then
    If Len(Dir$(Me!txtfilepath)) <> 0 Then
        i = InstrRev(Me!txtfilepath, "\")
        If i <> 0 Then
             Application.FollowHyperLink Left$(Me!txtfilepath, i)
        Else
            Application.FollowHyperlink Me!txtfilepath
        End If
    End If
End If
End Sub

 

[mester]

Private Sub openfilelocation_Click()
Dim i As Integer
If Len(Me!txtfilepath & "") <> 0 Then
    If Len(Dir$(Me!txtfilepath)) <> 0 Then
        i = InstrRev(Me!txtfilepath, "\")
        If i <> 0 Then
             Application.FollowHyperLink Left$(Me!txtfilepath, i)
        Else
            Application.FollowHyperlink Me!txtfilepath
        End If
    End If
End If
End Sub

Thanks a lot ,i'll try it now

 

[mester]

Private Sub openfilelocation_Click()
Dim i As Integer
If Len(Me!txtfilepath & "") <> 0 Then
    If Len(Dir$(Me!txtfilepath)) <> 0 Then
        i = InstrRev(Me!txtfilepath, "\")
        If i <> 0 Then
             Application.FollowHyperLink Left$(Me!txtfilepath, i)
        Else
            Application.FollowHyperlink Me!txtfilepath
        End If
    End If
End If
End Sub

Hi Sir, this code just show me the folder where my file exist, but the folder has many pdf files, so this code doesn't select the file , i want a code to only select the file not open it. Thanks a lot

 

[June7]

What do you mean by 'only select the file'? You want to open FileDialog with that file highlighted as default in the dialog?

   Dim fDialog As Office.FileDialog
 
   ' Set up the File Dialog.
   Set fDialog = Application.FileDialog(msoFileDialogFilePicker)

   With fDialog
      ' Allow user to make multiple or only one selection in dialog box
      .AllowMultiSelect = False
      ' Set the title of the dialog box.
      .title = "Please select one file."
      ' Set the default folder/file path
      .InitialFileName = Me.txtFilePath
      ' Clear out the current filters, and add our own.
      .Filters.Clear
      .Filters.Add "PDF file", "*.pdf"
      ' Show the dialog box. If the .Show method returns True, the
      ' user picked at least one file. If the .Show method returns
      ' False, the user clicked Cancel.
      If .Show = True Then
         Debug.Print .SelectedItems(1)
      Else
         MsgBox "You clicked Cancel in the file dialog box."
      End If
   End With

 

[mester]

What do you mean by 'only select the file'? You want to open FileDialog with that file highlighted as default in the dialog?

   Dim fDialog As Office.FileDialog
 
   ' Set up the File Dialog.
   Set fDialog = Application.FileDialog(msoFileDialogFilePicker)

   With fDialog
      ' Allow user to make multiple or only one selection in dialog box
      .AllowMultiSelect = False
      ' Set the title of the dialog box.
      .title = "Please select one file."
      ' Set the default folder/file path
      .InitialFileName = Me.txtFilePath
      ' Clear out the current filters, and add our own.
      .Filters.Clear
      .Filters.Add "PDF file", "*.pdf"
      ' Show the dialog box. If the .Show method returns True, the
      ' user picked at least one file. If the .Show method returns
      ' False, the user clicked Cancel.
      If .Show = True Then
         Debug.Print .SelectedItems(1)
      Else
         MsgBox "You clicked Cancel in the file dialog box."
      End If
   End With

Exactly Sir, i want the code to only highlight the file , which help to see it between all the files in that folder.

 

[theDBguy]

Exactly Sir, i want the code to only highlight the file , which help to see it between all the files in that folder.

You could try using the Shell function to open Windows Explorer with the /select switch. For example:

Shell "c:\windows\explorer.exe /select " & Me.Fileoath

Hope that helps...

 

[mester]

You could try using the Shell function to open Windows Explorer with the /select switch. For example:

Shell "c:\windows\explorer.exe /select " & Me.Fileoath

Hope that helps...

Thanks Sir ,i'll try it and hope it will work

 

[Gasman]

Exactly Sir, i want the code to only highlight the file , which help to see it between all the files in that folder.

And you are going to do what with it afterwards?

 

[mester]

And you are going to do what with it afterwards?

i have an app where i download files in it, so after knowing the file i already download i can then download the next one.

 

[arnelgp]

you forgot the comma (,):

c# - How to open Explorer with a specific file selected? - Stack Overflow

Dim i
i = Shell("explorer.exe /select, " & "" & Me!txtFilePath, vbNormalFocus)

 

[theDBguy]

you forgot the comma (,):

c# - How to open Explorer with a specific file selected? - Stack Overflow

Dim i
i = Shell("explorer.exe /select, " & "" & Me!txtFilePath, vbNormalFocus)

Thanks for the assist.

 

[mester]

you forgot the comma (,):

c# - How to open Explorer with a specific file selected? - Stack Overflow

Dim i
i = Shell("explorer.exe /select, " & "" & Me!txtFilePath, vbNormalFocus)

Thank you so much ,it work very well.

 

[mester]

you forgot the comma (,):

c# - How to open Explorer with a specific file selected? - Stack Overflow

Dim i
i = Shell("explorer.exe /select, " & "" & Me!txtFilePath, vbNormalFocus)

Thank you so much, it works very well for me.

 

[mester]

You could try using the Shell function to open Windows Explorer with the /select switch. For example:

Shell "c:\windows\explorer.exe /select " & Me.Fileoath

Hope that helps...

Thank you so much, it works very well for me.

 

[theDBguy]

Thank you so much, it works very well for me.

Hi. Glad to hear you got it sorted out. Good luck with your project.