Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor VBA
  aktueller Pfad

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:  aktueller Pfad (2403 mal gelesen)
ylps
Mitglied



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

Beiträge: 89
Registriert: 29.07.2005

Inventor 10
INV 2008

erstellt am: 18. Aug. 2005 08:13    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,

ich bin sicher das ich nicht der erste bin, aber leider bin ich über "suchen" NICHT fündig geworden, deswegen hier meine Frage:
wie kann ich den aktuellen Pfad meines aktuellen Dokumentes abfragen?
Danke schon mal,
Michael

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

PaulSchuepbach
Moderator
Programmierer




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

Beiträge: 1005
Registriert: 01.10.2003

erstellt am: 18. Aug. 2005 08:51    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 ylps 10 Unities + Antwort hilfreich

Hallo Michael,

im Dokument-Objekt gibt's 'FullFileName' - gibt kompletten Pafd und Dateinnamen zurück.


Grüsse,

Paul

www.morecam.ch/cad.htm

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

ylps
Mitglied



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

Beiträge: 89
Registriert: 29.07.2005

Inventor 10
INV 2008

erstellt am: 18. Aug. 2005 09:09    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

Danke für die prompte Antwort. Jetzt bin ich schon ein großes Stück weiter. Gibt es auch einen Befehl der "nur" den Pfad angibt.
Michael

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

VOSTA1
Mitglied
techn. Angestellter


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

Beiträge: 108
Registriert: 23.12.2002

erstellt am: 18. Aug. 2005 09:58    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 ylps 10 Unities + Antwort hilfreich

hab mir bisher so geholfen, wenn es einen Befehl gibt,
bitte mitteilen

********************************
Sub File_Name() '(Dateiname As String)

Dim oDoc As Document
Dim Länge_Dateiname_mit_Pfad As Integer
Dim Name_Pfad As String
Dim Länge_String As Integer
Dim Dateiname_mit_Pfad As String
Set oDoc = ThisApplication.ActiveDocument

Dateiname_mit_Pfad = oDoc.FullFileName
Länge_Dateiname_mit_Pfad = Len(Dateiname_mit_Pfad)
Dim Endung As Integer
Endung = 0 'mit .ipt usw.
'Endung = 4 ' ohne .ipt usw
Name_Pfad = Mid(Dateiname_mit_Pfad, 1, Länge_Dateiname_mit_Pfad - 4)
Länge_String = Len(Name_Pfad)

Dim i As Integer
i = 1
Do Until Mid(Name_Pfad, Länge_String - i, 1) = "\"
   i = i + 1
Loop

Dateiname = Right(Name_Pfad, i - Endung)
Name_Pfad = Mid(Dateiname_mit_Pfad, 1, Länge_Dateiname_mit_Pfad - 4 - i)

MsgBox " FullFileName : " & oDoc.FullFileName _
& Chr(10) & "Dateiname : " & Dateiname _
& Chr(10) & "Pfad : " & Name_Pfad

End Sub

++++++++++++++++++++++++++++++++++++++++++++++++++

[Diese Nachricht wurde von VOSTA1 am 18. Aug. 2005 editiert.]

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

daywa1k3r
Moderator
Softwareentwickler




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

Beiträge: 3497
Registriert: 01.08.2002

Alienware m17x, Win7, Inventor2012

erstellt am: 18. Aug. 2005 10:39    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 ylps 10 Unities + Antwort hilfreich

Code:

Sub test_pfad()
    MsgBox Replace(ThisApplication.ActiveDocument.FullFileName, Split(ThisApplication.ActiveDocument.FullFileName, "\")(UBound(Split(ThisApplication.ActiveDocument.FullFileName, "\"))), "")
end Sub


------------------
Grüße daywa1k3r

FX64 Software Solutions
Mold&More Software Solutions

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

ylps
Mitglied



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

Beiträge: 89
Registriert: 29.07.2005

Inventor 10
INV 2008

erstellt am: 18. Aug. 2005 11: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

Danke für die Antworten!
Alle 3 haben mir sehr geholfen!
Michael

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