| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Explorer aufrufen unter Windows 10 (2270 mal gelesen)
|
Lothar Boekels Ehrenmitglied V.I.P. h.c. Dipl.-Ing. Maschinenbau und CAD-Trainer
Beiträge: 3794 Registriert: 15.02.2001
|
erstellt am: 25. Aug. 2015 17:22 <-- editieren / zitieren --> Unities abgeben:
Hallo Leute, ich brauche mal gerade eure geschätzte Hilfe: Bis Windows 7 konnte man wie folgt einen Explorer aufrufen, der dann genau an der Stelle im Browser stand, wo die aktuelle geöffnete Datei abgespeichert war. Code:
Public Sub OpenExplorerAtFilePosition() If ThisApplication.Documents.Count = 0 Then Exit Sub End If Dim oApplication As Inventor.Application Set oApplication = ThisApplication Dim oDoc As Document Set oDoc = oApplication.ActiveDocument If oDoc.FileSaveCounter >= 1 Then 'open the path opens an Explorer Window Shell "Explorer.exe /select, " & oDoc.FullFileName, vbNormalFocus Else Call MsgBox("File not saved!", vbOKOnly, "Error") End If End Sub
Dabei wurde dann die gerade geöffnete Datei im Explorer selectiert. Jetzt bei Windows 10 öffnet sich der Explorer zwar noch - aber nur auf der Ebene "Dieser PC". Hat jemand eine Ahnung, wie man das mit Windows 10 wieder so aufruft, dass es funktioniert wie vorher? ------------------ mit freundlichem Gruß aus Mönchengladbach Lothar Boekels ----------------------------------------------------- Wir unterstützen die Arbeit der Rettungshundestaffel des DRK in Viersen Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Chris 31 Mitglied Konstrukteur und Mädchen für alles
Beiträge: 575 Registriert: 23.04.2013 Inventor 2013/2015 Windows 7 64 bit 16GB RAM nVidia Quadro 600
|
erstellt am: 26. Aug. 2015 07:14 <-- editieren / zitieren --> Unities abgeben: Nur für Lothar Boekels
Guten Morgen Lothar, spontan würden mir jetzt zwei Wege einfallen: 1. Öffne den Pfad mit System.Diagnostics.Process.Start(oDoc.FullFileName) 2. Benutze FileDialog. Vielleicht geht das, ich kann es hier leider nicht testen, da ich auf Arbeit noch auf Windows 7 arbeite. Viel Glück ------------------ MFG Chris Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Lothar Boekels Ehrenmitglied V.I.P. h.c. Dipl.-Ing. Maschinenbau und CAD-Trainer
Beiträge: 3794 Registriert: 15.02.2001
|
erstellt am: 26. Aug. 2015 08:19 <-- editieren / zitieren --> Unities abgeben:
Hallo Chris, erst mal Danke für die Antwort. Das trifft aber noch nicht des Pudels Kern. Die Frage ist: Wie muss ich mit Hilfe der shell Funktion die Parameter an den Explorer übergeben, damit sich ein Explorer-Fenster öffnet und die aktive Datei dort bereits selektiert ist? Da hat sich jetzt beim Übergang von Windows 7 auf Windows 10 etwas geändert. Nur was? ------------------ mit freundlichem Gruß aus Mönchengladbach Lothar Boekels ----------------------------------------------------- Wir unterstützen die Arbeit der Rettungshundestaffel des DRK in Viersen Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Lothar Boekels Ehrenmitglied V.I.P. h.c. Dipl.-Ing. Maschinenbau und CAD-Trainer
Beiträge: 3794 Registriert: 15.02.2001 DELL Precision 7520 Win10Pro-64 Inventor mit Vault Professional 2022 --------------------- Während man es aufschiebt, verrinnt das Leben. Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.)
|
erstellt am: 02. Sep. 2015 12:40 <-- editieren / zitieren --> Unities abgeben:
|
BernoAn Mitglied
Beiträge: 164 Registriert: 16.01.2014
|
erstellt am: 02. Sep. 2015 14:11 <-- editieren / zitieren --> Unities abgeben: Nur für Lothar Boekels
|
Lothar Boekels Ehrenmitglied V.I.P. h.c. Dipl.-Ing. Maschinenbau und CAD-Trainer
Beiträge: 3794 Registriert: 15.02.2001 DELL Precision 7520 Win10Pro-64 Inventor mit Vault Professional 2022 --------------------- Während man es aufschiebt, verrinnt das Leben. Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.)
|
erstellt am: 02. Sep. 2015 14:56 <-- editieren / zitieren --> Unities abgeben:
Hallo Berno, was will ich machen: Die Dateiablage ist in vielen Fällen eben nur ein Windows-Dateisystem. Dort sind alle Dateien entsprechend ihrer Verwendung, Klassifikation oder sonstiger Sortierkriterien gespeichert. Aber eben alle. Das sind dann auch Datenblätter, Berechnungen und was man sonst bei der Konstruktion noch für Dateien benötigt oder erzeugt. Auch Fotos und so. Während der Konstruktion interessiert man sich halt mehr oder weniger häufig für diese Inhalte. Um dann einen schnellen Zugriff auf die Stelle zu haben, ist dieses Makro gedacht. Meist ist man im Inventor halt gerade an der Stelle. Da ist es hilfreich, wenn ein Explorerfenster just mit der Datei im Focus öffnet, an der man gerade arbeitet. ------------------ mit freundlichem Gruß aus Mönchengladbach Lothar Boekels ----------------------------------------------------- Wir unterstützen die Arbeit der Rettungshundestaffel des DRK in Viersen [Diese Nachricht wurde von Lothar Boekels am 02. Sep. 2015 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Chris 31 Mitglied Konstrukteur und Mädchen für alles
Beiträge: 575 Registriert: 23.04.2013 Inventor 2013/2015 Windows 7 64 bit 16GB RAM nVidia Quadro 600
|
erstellt am: 03. Sep. 2015 06:53 <-- editieren / zitieren --> Unities abgeben: Nur für Lothar Boekels
|
BernoAn Mitglied
Beiträge: 164 Registriert: 16.01.2014
|
erstellt am: 03. Sep. 2015 09:15 <-- editieren / zitieren --> Unities abgeben: Nur für Lothar Boekels
Hallo Wie findest du das hier, als Notlösung? Code:
Sub Dialog_Open()Dim FileDlg As FileDialog Call ThisApplication.CreateFileDialog(FileDlg) FileDlg.DialogTitle = "Explorer Ersatz - Fileshow" FileDlg.CancelError = True FileDlg.filename = ThisApplication.ActiveDocument.DisplayName On Error Resume Next FileDlg.ShowSave End Sub
Gruß Berno
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CAD-Huebner Ehrenmitglied V.I.P. h.c. Verm.- Ing., ATC-Trainer
Beiträge: 9732 Registriert: 01.12.2003 AutoCAD 200x, Civil, LDD, MDT, ARD, ACA(ADT) Inventor AIP 4-11,200x WinXP, W2K
|
erstellt am: 03. Sep. 2015 12:44 <-- editieren / zitieren --> Unities abgeben: Nur für Lothar Boekels
|
CAD-Huebner Ehrenmitglied V.I.P. h.c. Verm.- Ing., ATC-Trainer
Beiträge: 9732 Registriert: 01.12.2003 AutoCAD 200x, Civil, LDD, MDT, ARD, ACA(ADT) Inventor AIP 4-11,200x WinXP, W2K
|
erstellt am: 03. Sep. 2015 12:57 <-- editieren / zitieren --> Unities abgeben: Nur für Lothar Boekels
|
Lothar Boekels Ehrenmitglied V.I.P. h.c. Dipl.-Ing. Maschinenbau und CAD-Trainer
Beiträge: 3794 Registriert: 15.02.2001
|
erstellt am: 29. Okt. 2015 09:30 <-- editieren / zitieren --> Unities abgeben:
So - nun endlich komme ich wieder dazu. Erst mal vielen Dank für die Anteilnahme an meinem Problem. Habe wieder herumexperimentiert. Heute funktioniert es wieder mit genau und zwar ganz genau dem Code, der zuvor Probleme machte. Möglicherweise wurde zwischenzeitlich im Windows etwas geändert. Wer weiß. ------------------ mit freundlichem Gruß aus der Burggemeinde Brüggen Lothar Boekels ----------------------------------------------------- Wir unterstützen die Arbeit der Rettungshundestaffel des DRK in Viersen Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |