open folder

hello...how to open folder using vb??using shell function?

Newbie Poster

7 posts since Oct 2007

Reputation Points: 10

Solved Threads: 1

0

ShellExecute hWnd, "explore", "C:\whatever", _
    vbNullString, vbNullString, SW_SHOWNORMAL

I got it from http://vb-helper.com/howto_shellexecute.html

Ramy Mahrous

Postaholic

2,196 posts since Aug 2006

Reputation Points: 480

Solved Threads: 276

4 Years Ago

0

there are some errors. it says shellexecute hWnd and SW_SHOWNORMAL are not declared.

ramlisarip

Newbie Poster

7 posts since Oct 2007

Reputation Points: 10

Solved Threads: 1

4 Years Ago

0

hi, am brand new to VB. i have the same problem. i want to open a folder, say; My Computer on clicking a command button on VB GUI. i have something like this:

Private Sub Command1_Click()
ShellExecute hWnd, "open", "C:\apache", _
vbNullString, vbNullString, SW_SHOWNORMAL
End Sub
but it gives compilation error. "Sub or Function not defined"
can somebody help me out.
Regards,

Asad__

Newbie Poster

8 posts since Mar 2008

Reputation Points: 10

Solved Threads: 0

4 Years Ago

0

Private Sub Command1_Click()
Shell "explorer.exe C:", vbMaximizedFocus
End Sub

If you want to open some other folder instead of "C:" just delete "C:" and write the path to the folder you want to open.

Hope it helps

here other ways to open msoffice for additional information just edit the path

Dim Word
Set Word = CreateObject("Word.Application")
Set doc = Word.documents.Add(App.path & "\DOCUCAI.doc")
Word.Visible = True

----------------

'Dim dTaskID As Double, path As String, file As String
path = "C:\WINDOWS\notepad.exe"
file = App.path & "\USERMANUAL.txt"
dTaskID = Shell(path + " " + file, vbNormalFocus)

---------------

Set power = CreateObject("PowerPoint.application")
power.Visible = True
Set doc = power.Presentations.Open(App.path & "\Ppoint.ppt")
power.activePresentation.slideShowSettings.Run
'pptObject.ActivePresentation.SlideShowSettings.Run
End Sub

all off those code will open msoffice files on the same folder where you save the put ur project..

good day

give me a feed back if it solve ur prob

hawisme000

Junior Poster

102 posts since Jul 2007

Reputation Points: 10

Solved Threads: 2

4 Years Ago

0

i was answer your question in you newer thread.

Jx_Man