Listing files and folders contents in access forms

[shod90]

Dear Gents,


Anyone have code for listing files and folders inside the main folder i need to show in the access form .
Actually i need to make a form like windows explorer exactly that when i double click on a folder it takes me to the sub folder , and when i click on the file it opens as if i open it from the normal windows explorer .
I got a code that list the (Files) in list box only but not opening it , also i shows the path of the files in the list box. see below..



I need to hide the folder path because i don't want to let users knows where the files are located.
Any ideas ? ..

[Bulzie]

Maybe try the File Dialog Box. What type of files will they be opening?

https://msdn.microsoft.com/en-us/lib...ffice.12).aspx

[orange]

This Allen Browne link may be helpful.

[shod90]

This Allen Browne link may be helpful.

Actually this is only for ( viewing ) folder ( files ) not folders as well , also i need when i double click on one item in the listbox i need to open it .

Maybe try the File Dialog Box. What type of files will they be opening?
https://msdn.microsoft.com/en-us/lib...ffice.12).aspx

I don't want the Dialog box otherwise users will know where is the path of that important files , i. Need to make something like hyperlink for all folder and files inside the main folder

[HiTechCoach]

I use this code to open files with there associated app: http://www.mvps.org/access/api/api0018.htm

You could use the code above in the click event of the list box.

If you want to hide the full path then what I do is add a second column to the list box that is hidden (width = 0") In the first column that is visible only show the file name. When the user clicks the item, use the data in the second column witht he code above.

Here is code to get the file name from the full path:

Function FunctionGetFileName(FullPath As String)
Dim StrFind As String
Dim iCount as long

	Do Until Left(StrFind, 1) = "\"
		iCount = iCount + 1
		StrFind = Right(FullPath, iCount)
		If iCount = Len(FullPath) Then Exit Do
	Loop
	
	FunctionGetFileName = Right(StrFind, Len(StrFind) - 1)
	
End Function