| |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
 | PNY präsentiert die PRO Elite™ High Endurance microSD-Flash-Speicherkarten für Videoüberwachung und kontinuierliche Aufzeichnung, eine Pressemitteilung
|
Autor
|
Thema: Ordnerbaum in VBA für AutoCAD? (1032 mal gelesen)
|
Cimex Mitglied CAD-Trainer

 Beiträge: 38 Registriert: 28.03.2006
|
erstellt am: 29. Mrz. 2006 11:41 <-- editieren / zitieren --> Unities abgeben:         
Ein liebes Hallo an die Gemeinde! Bräuchte ein Steuerelement, das einen Ordnerbaum wie im Windows-Explorer darstellt. Es geht um das Festlegen eines Startordners für mein Makro. Weiß jemand, wie das geht? Thx vorab, Cimex Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
       

 Beiträge: 13530 Registriert: 30.11.2003 ACAD 2008 Mechanical
|
erstellt am: 29. Mrz. 2006 11:44 <-- editieren / zitieren --> Unities abgeben:          Nur für Cimex
|
Carsten1210 Mitglied staatl. geprüfter Holztechniker
   
 Beiträge: 1360 Registriert: 24.07.2002
|
erstellt am: 29. Mrz. 2006 11:47 <-- editieren / zitieren --> Unities abgeben:          Nur für Cimex
|
Huebi Mitglied Vermessungsing.
 
 Beiträge: 107 Registriert: 08.01.2004 Intel Core Duo E6750@2.66GHz NVIDIA GeForce 8600 GT AutoCAD 2004, 2007, 2008 AcadMAP 2004 und 2007 Civil 3D 2008 ADT 2009
|
erstellt am: 29. Mrz. 2006 11:49 <-- editieren / zitieren --> Unities abgeben:          Nur für Cimex
Den folgenden Code hab ich mir irgendwann mal hier abgekupfert. Vielleicht bringt's Dir ja was. Code: Private Sub cmd6_Click() ' Ordner-Auswahl-Dialog aufrufen Dim oShell As Object Dim oFolder As ObjectSet oShell = CreateObject("Shell.Application") Set oFolder = oShell.BrowseForFolder(0, "Bitte einen Ordner auswählen", 1) If Not oFolder Is Nothing Then tbo.Value = oFolder.Self.Path End If End Sub
Grüße, Hübi ------------------ Schaun ma mal, dann seng ma scho....  Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Cimex Mitglied CAD-Trainer

 Beiträge: 38 Registriert: 28.03.2006
|
erstellt am: 29. Mrz. 2006 12:42 <-- editieren / zitieren --> Unities abgeben:         
|