---

Har ingen kendskab til VB.
Derfor lige et enkelt spørgsmål.
Jeg skal bare kunne åbne denne sti : " C:\Documents and
Settings\Administrator\Dokumenter " med en commandButton.


Private Sub Command1_Click()
????????????
End Sub



På forhånd tak
Morten

---

> Jeg skal bare kunne åbne denne sti : " C:\Documents and
> Settings\Administrator\Dokumenter " med en commandButton.

Først indsætter du følgende deklaration i Formens "General" sektion:

Private Declare Function ShellExecute Lib "shell32.dll" Alias
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal
lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String,
ByVal nShowCmd As Long) As Long

Derefter skriver du følgende i Click eventen for knappen:

Private Sub Command1_Click()
ShellExecute Me.hwnd, "OPEN", "C:\Documents and
Settings\Administrator\Dokumenter", vbNullString, "", vbNormalFocus
End Sub

Håber det var svaret på dit spørgsmål.

Hilsen Kim Pedersen
http://www.vbcodemagician.dk

---

Jamen tak kim.
Så må jeg se om jeg kan få det til at fungere.

Mvh
MC

"Kim Pedersen" <ppicasso@hotmail.com> skrev i en meddelelse
news:c0l6pr$1d3$1@sunsite.dk...
> > Jeg skal bare kunne åbne denne sti : " C:\Documents and
> > Settings\Administrator\Dokumenter " med en commandButton.
>
> Først indsætter du følgende deklaration i Formens "General" sektion:
>
> Private Declare Function ShellExecute Lib "shell32.dll" Alias
> "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal
> lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As
String,
> ByVal nShowCmd As Long) As Long
>
> Derefter skriver du følgende i Click eventen for knappen:
>
> Private Sub Command1_Click()
> ShellExecute Me.hwnd, "OPEN", "C:\Documents and
> Settings\Administrator\Dokumenter", vbNullString, "", vbNormalFocus
> End Sub
>
> Håber det var svaret på dit spørgsmål.
>
> Hilsen Kim Pedersen
> http://www.vbcodemagician.dk
>
>