title image


Smiley Vielleicht gehts damit...
Hallo,



wir hatten heute das gleiche Anliegen (also Ordnerauswahl aus VBS bzw. VBA). Wir haben dafür die folgende Lösung verwendet:



Set obj_Shell = CreateObject("Shell.Application")

Set obj_Ordner = obj_Shell.BrowseForFolder(0, "Wähl mal was...", 0, 17)

Set obj_self = obj_Ordner.Self

MsgBox obj_self.Path



Die 17 in Zeile 2 definiert hierbei den SpecialFolder "Arbeitsplatz" (du kannst natürlich auch jeden anderen verwenden). Als Ergebnis gibts dann den kompletten Pfad. Müsste eigentlich auch in VB funzen.



MfG

Andreas











geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: