Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor VBA
  Explorer aufrufen unter Windows 10

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
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



Sehen Sie sich das Profil von Lothar Boekels an!   Senden Sie eine Private Message an Lothar Boekels  Schreiben Sie einen Gästebucheintrag für Lothar Boekels

Beiträge: 3794
Registriert: 15.02.2001

erstellt am: 25. Aug. 2015 17:22    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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


Sehen Sie sich das Profil von Chris 31 an!   Senden Sie eine Private Message an Chris 31  Schreiben Sie einen Gästebucheintrag für Chris 31

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Lothar Boekels 10 Unities + Antwort hilfreich

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



Sehen Sie sich das Profil von Lothar Boekels an!   Senden Sie eine Private Message an Lothar Boekels  Schreiben Sie einen Gästebucheintrag für Lothar Boekels

Beiträge: 3794
Registriert: 15.02.2001

erstellt am: 26. Aug. 2015 08:19    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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



Sehen Sie sich das Profil von Lothar Boekels an!   Senden Sie eine Private Message an Lothar Boekels  Schreiben Sie einen Gästebucheintrag für Lothar Boekels

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

nach oben schieb ....

Hat keiner eine Ahnung wie man das macht?

------------------
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

BernoAn
Mitglied



Sehen Sie sich das Profil von BernoAn an!   Senden Sie eine Private Message an BernoAn  Schreiben Sie einen Gästebucheintrag für BernoAn

Beiträge: 164
Registriert: 16.01.2014

erstellt am: 02. Sep. 2015 14:11    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Lothar Boekels 10 Unities + Antwort hilfreich

Mal eine Frage warum brauchst du den Explorer, was willst du machen, vieleicht gibt es ja eine andere Lösung?


Gruß
Berno

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



Sehen Sie sich das Profil von Lothar Boekels an!   Senden Sie eine Private Message an Lothar Boekels  Schreiben Sie einen Gästebucheintrag für Lothar Boekels

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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


Sehen Sie sich das Profil von Chris 31 an!   Senden Sie eine Private Message an Chris 31  Schreiben Sie einen Gästebucheintrag für Chris 31

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Lothar Boekels 10 Unities + Antwort hilfreich

Hallo Lothar,

probier doch mal statt dem Shell den Befehl:

Code:
Process.Start("explorer.exe", "/select," & "FILETOSELECT")

vielleicht geht der noch unverändert.

------------------
MFG

Chris

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

BernoAn
Mitglied



Sehen Sie sich das Profil von BernoAn an!   Senden Sie eine Private Message an BernoAn  Schreiben Sie einen Gästebucheintrag für BernoAn

Beiträge: 164
Registriert: 16.01.2014

erstellt am: 03. Sep. 2015 09:15    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Lothar Boekels 10 Unities + Antwort hilfreich

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



Sehen Sie sich das Profil von CAD-Huebner an!   Senden Sie eine Private Message an CAD-Huebner  Schreiben Sie einen Gästebucheintrag für CAD-Huebner

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Lothar Boekels 10 Unities + Antwort hilfreich


UHWin10-Explorerselect.PNG

 
Grundsätzlich funktioniert Explorere.exe /select aber noch unter Windows 10 - zumindest aus der Windows Eingabeaufforderung heraus.

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

CAD-Huebner
Ehrenmitglied V.I.P. h.c.
Verm.- Ing., ATC-Trainer



Sehen Sie sich das Profil von CAD-Huebner an!   Senden Sie eine Private Message an CAD-Huebner  Schreiben Sie einen Gästebucheintrag für CAD-Huebner

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Lothar Boekels 10 Unities + Antwort hilfreich


UHWIN10-IV2015-Explorerselectvba.PNG

 
Hallo Lothar, habe jetzt gerade bei mir mit IV 2015 unter Windows 10 Pro deine VBA Code getestet - funktioniert einwandfrei (siehe Screenshot).
Ist also kein generelles Windows 10 Problem.

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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



Sehen Sie sich das Profil von Lothar Boekels an!   Senden Sie eine Private Message an Lothar Boekels  Schreiben Sie einen Gästebucheintrag für Lothar Boekels

Beiträge: 3794
Registriert: 15.02.2001

erstellt am: 29. Okt. 2015 09:30    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz