| | |  | 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 neue NVIDIA RTX A400 und die A1000 Grafikkarte, eine Pressemitteilung
|
|
Autor
|
Thema: Verzeichnis öffnen und Datei selektieren (4879 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
    
Beiträge: 2788
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
| 
