for at starte en brovser

???

Læg følgende kode i f.eks. en knap:

Private Sub Command1_Click()
    Dim RetVal As Long
   
    RetVal = ÅbnMappe(\"F:\\Video\\Feriefilm\")

End Sub
-Hvor du selvfølgelig erstatter stien med den mappe du vil åbne. Du kan også bruge en textbox som input til mappen.

Læg følgende kode i formen eller et modul:

Function ÅbnMappe(ByVal strPath As String) As Long
  Dim strShell As String
 
  strShell = \"C:\\WINDOWS\\explorer.exe /E,\" & Chr(34) & strPath & Chr(34)
 
  ÅbnMappe = Shell(strShell, 1)

End Function

Dette vil åbne stifinder i den mappe du angiver i knappen. Hvis du mener browser bogstaveligt, så skal \"strShell\"-koden erstattes af følgende:\'

  strShell = \"C:\\Programmer\\Internet Explorer\\IEXPLORE.EXE \" & Chr(34) & strPath & Chr(34)

Dette vil åbne IE i den mappe du angiver i knappen.

-Du skal lige tjekke at du har de samme stier til programmerne, som jeg har skrevet her.

MVH tjacob

jeg kan godt få det første du har skrevet tíl at virke. Men det næste hvorman kan bruge en textbox som input kan jeg ikke få til at virke. Her er hvad jeg har puttet ind:

Private Sub Command1_Click()
    Dim RetVal As Long
   
    RetVal = ÅbnMappe(\"E:\\\")

End Sub
Function ÅbnMappe(ByVal strPath As String) As Long
  Dim strShell As String
 
  strShell = \"C:\\Programmer\\Internet Explorer\\IEXPLORE.EXE \" & Chr(34) & strPath & Chr(34)
 
  ÅbnMappe = Shell(strShell, 1)

End Function

Input via testbox laver du således:

Indsæt en textbox i formen (jeg kalder den Text1):

I knappen indsættes:
Private Sub Command1_Click()
    Dim RetVal As Long, strSti as String
   
    strSti = Text1.Text
    RetVal = ÅbnMappe(strSti)

End Sub

Nu vil den åbne i den mappe der er skrevet i textboxen.

Du kan evt. lave noget kode, der tjekker om navnet er korrekt [altså om \":\" og \"\\\" er med osv., men det vil føre for vidt at komme ind på her].

Du kan for i øvrigt også bruge denne funktion til adresser på nettet: så skal stien være:

\"http://www.EnWebSide.dk\"

Hvad er det jeg skal skive i formen ved textboxen??

Stien til den mappe du vil åbne, skal skrives i tekstboxen, f.eks. \"E:\\\" eller \"http://www.EnWebSide.dk\" (uden \"\"). OK?

jeg skal lave en knap og i formen for den skal jeg skrive:

Private Sub Command1_Click()
    Dim RetVal As Long, strSti as String
   
    strSti = Text1.Text
    RetVal = ÅbnMappe(strSti)

End Sub

Så skal jeg lave en Textboks hvor der ikke skal stå noget formen for textboksen.

Så skulle det virke eller hvad??? Jeg kan ikke få det til at virke!!!

Ja, det skulle virke. Mulige fejlkilder:

Hedder din knap Command1?
Hedder din tekstbox Text1?
Skriver du stien korrekt?

Hvis du har den kode i knappen, som du skrev, og funktionen, som beskrevet tidligere, så skulle det virke: Skriv en sti i tekstboxen, og tryk på knappen, så skulle din browser åbne i denne sti.

hurra nu virker det. Mange tak for tålmodiheden og den store hjelp!!!! TAK TAK