Macro which opens folder

[lechev65]

Hi,
I have an excel control sheet for opening different worksheets with click buttons nested in a folder named "DATABASE". Except the excel sheets, I need a macro for opening also the folders inside my folder "DATABASE". I would like to open all the folders inside the "DATABASE" folder without the need of re-addressing when I move the "DATABASE" folder to another computer or drive.
Thank you in advance.
Krasimir

 

[Tinbendr]

Use GetOpenFilename

 

[lechev65]

Thanks David.

How to assign it to a click button?

Regards,

Krasimir

 

[Mahesh_P]

Hi

check whether this help
[URL="http://www.mrexcel.com/forum/...com/forum/showthread.php?639371-Browse-folder[/url]

 

[andrewkard]

Thanks David.

How to assign it to a click button?

Regards,

Krasimir

Hello,

Sub test()
sPt = Application.GetOpenFilename("Text files,*.txt")
End sub

And then assign the macro "Test" on button.

 

[lechev65]

Hi Andrewkard,

The code opens the folder "Documents" in the "Users"... I would like to open any folder in my folder "DATABASE" containing excel, pdf, word, etc. files and when I move the "DATABASE" folder to another computer, laptop or drive, the opening function to remain. Thanks in advance!

</PRE>

 

[lechev65]

Hi Manesh, the link doesn't work...

 

[andrewkard]

Hello, something like that:

Sub test()
Dim oFS As Object, oFl As Object
Dim sFtFd$, sDnFd$
sFtFd = ActiveWorkbook.Path & "\" & "New"
Set oFS = CreateObject("scripting.filesystemobject")
Set oFS = oFS.getfolder(sFtFd)
sDnFd = ActiveWorkbook.Path & "\" & "New2"
MkDir sDnFd
For Each oFl In oFS.Files
oFl.Copy (sDnFd & "\" & oFl.Name)
Next
End Sub

 

[lechev65]

Hi, something wrong, it doesn't work ... where I have to input the file name I want to open with the click button?

 

[andrewkard]

Hello, you have to lay your file in a folder which consist a folder named "DATABASE". Than

Sub test()
Dim oFS As Object, oFl As Object
Dim sFtFd$, sDnFd$sFtFd = ActiveWorkbook.Path & "\" & "DATABASE"
Set oFS = CreateObject("scripting.filesystemobject")
Set oFS = oFS.getfolder(sFtFd)
sDnFd = ActiveWorkbook.Path & "\" & "New" ' New folder
MkDir sDnFd
For Each oFl In oFS.Files
oFl.Copy (sDnFd & "\" & oFl.Name)
Next
End Sub
</PRE>