| | |  | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte | | | |  | 2D- und 3D-Bauvisionen in der Revit Weiterbildung mit IHK-Zertifizierung , ein Kurs (bis zu 100% förderbar mit Bildungsgutschein)
|
|
Autor
|
Thema: Verzeichnis öffnen und Datei selektieren (4970 mal gelesen)
|
GeorgK
Mitglied
   Beiträge: 619
Registriert: 06.06.2001
|
erstellt am: 20. Sep. 2012 08:22  <-- editieren / zitieren -->   Unities abgeben:          
Hallo zusammen, wie kann ich ein Verzeichnis öffnen und eine Datei selektieren?
Wenn ich den Dateinamen direkt mit angebe geht es. Doch wie kann ich eine Variable übergeben? Vielen Dank Georg Code:
Sub Explorer_2()Dim Pfad As String
Dim DateiPfad As String Pfad = Replace(ThisApplication.ActiveDocument.fullFileName, Split(ThisApplication.ActiveDocument.fullFileName, "\")(UBound(Split(ThisApplication.ActiveDocument.fullFileName, "\"))), "")
DateiPfad = ThisApplication.ActiveDocument.File.fullFileName
MsgBox (Pfad)
MsgBox (DateiPfad)
Shell "Explorer.exe " & Pfad, vbNormalFocus
Shell "Explorer.exe /select, C:\Temp\Test.ipt", vbNormalFocus 'Geht
Shell "Explorer.exe /select, DateiPfad", vbMaximizedFocus 'Geht nicht End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
rkauskh
Moderator
Dipl.-Ing. (FH) Versorgungstechnik, Master Eng. IT-Security & Forensic
    
Beiträge: 2933
Registriert: 15.11.2006 Windows 10 x64, AIP 2020-2025
|
erstellt am: 20. Sep. 2012 08:39 <-- editieren / zitieren --> Unities abgeben: Nur für GeorgK 
Moin Ohne es getestet zu haben, vermute ich, das die Variable DateiPfad schlicht nicht geparsed wird, da sie innerhalb der Anführungszeichen als String angesehen wird. Probier mal: Code:
Shell "Explorer.exe /select, " & DateiPfad & ", vbMaximizedFocus 'Geht nicht
------------------
MfG
Ralf Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
 |
Foren auf CAD.de
| 
