| | |  | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
|
Autor
|
Thema: Verzeichnis öffnen und Datei selektieren (4506 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: 2166
Registriert: 15.11.2006 Windows 10 x64, AIP 2022
|
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 (alle Foren)
| 
