app.path til programfiles.path?

lytter med :)

varmhund> Prøv http://www.developerfusion.com/show/251/

biohazard_666> For at abonnére på dette spm (dvs, modtage en mail ved nyt indlæg), skal du sætte et hak/kryds i "Abonnér", og derefter klikke på "Send", uden nogen besked.

Dvs:
- hak i "Abonnér"
- tom besked
- klik på Send

Ingen grund til at sende spørgeren (og alle andre der deltager i spm'et) en mail, med ordene "lytter med :)".. :-)

varmhund> Linket er fundet ved en søgning på www.google.com med følgene ord (ordret):
vb special folder "program files"

ved jeg thesurfer :)

Du kan få FSO til at finde f.eks. windows el. programmer-stien
Et eksempel på FSO er som følge:

    Dim fso
    Set fso = CreateObject("Scripting.FileSystemObject")
    Print = "Din windowsmappe er: " & fso.getspecialfolder(0)
    Print = "Din systemmappe er: " & fso.getspecialfolder(1)
    Print = "Din tempmappe er: " & fso.getspecialfolder(2)

Kik evt. på msdn.microsoft.com for yderligere hjælp

martin_moth> Du har ikke skrevet at han skal inkludere scripting.. eller ikke hvordan :-)

Project > references > Afkryds Microsoft Scripting Runtime

Men jeg kommer i tvivl om hvorvidt den kan finde mappen Program Files / Programmer. Men det kan hanjo så selv undersøge :o)

Man kan ikke finde Programmer med FSO tingen.. Har prøvet...

Prøv at bruge Environ()

Me.Caption = Environ$("programfiles")


'--------------------- Form1 ---------------------
' Se alle vadier, husk en listbox
Option Explicit

Private Sub Form_Load()
Dim i As Long
Dim strText As String
  i = 1
  Do
    strText = Environ$(i)
    List1.AddItem strText 'Tilføjer til List1
    i = (i + 1)
  Loop Until strText = ""
End Sub
'--------------------- Form1 ---------------------

Environ$("programfiles") det var da simpelt :)