---

Hallo VBA Programmierer,

wir wollen unseren Dokumenten aussagekräftige Dateinamen (ist das auch die (Bauteil/gruppen Nummer???) geben. Dazu habe ich eine entsprechende Eingabeform erstellt. Den Namen setze ich aus 2 Strings zusammen. Soweit kein Problem. Nur wie bekomme ich diesen Wert bei einem neuen Bauteil/gruppe als Dateiname?

Gruß aus Ostwestfalen
Wilfried 

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

---

Hallo Wilfried,

Wenn ich Dich richtig verstehe, willst Du den DATEINAMEN bei einem neuen Dokument setzen ??

Private Sub SetNewName()
 
  Dim oApp As Inventor.Application
  Set oApp = ThisApplication
 
  Dim oDoc As Document
  Set oDoc = oApp.ActiveDocument
 
  Dim str1 As String
  Dim str2 As String
  Dim newName As String

  str1 = "aaa"
  str2 = "bbb"
  newName = str1 & str2 & ".ipt"
 
  Call oDoc.SaveAs(newName, False)
 
End Sub

Gruesse,

Paul

www.morecam.ch/cad.htm

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

---

Dateiname.txt

Hallo Paul,

sieht so simpel aus, aber ich krieg's nie ganz hin. Mir fehlte eigentlich nur noch der Befehl für's Speichern. Vielen Dank.

Habe mal das Ergebnis meiner Programmierung beigelegt für andere.

Dank auch an VOSTA1.

Gruß
Wilfried

[Diese Nachricht wurde von Fan-ME10 am 03. Dez. 2003 editiert.]

[Diese Nachricht wurde von Fan-ME10 am 03. Dez. 2003 editiert.]

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

---

Noch ein kleiner Zusatz dann funktionierts auch für *.idw und *.iam
ohne manuelle Eingriffe!

Private Sub SetNewName()
 
  Dim oApp As Inventor.Application
  Set oApp = ThisApplication
 
  Dim oDoc As Document
  Set oDoc = oApp.ActiveDocument
 
  Dim str1 As String
  Dim str2 As String
  Dim Dateityp As String
  Dim newName As String

  Dateityp  = oDoc.FullFileName
  Dateityp = Right(Dateityp, 4)
  Msgbox Dateityp

  str1 = "aaa"
  str2 = "bbb"
 
 
  newName = str1 & str2 & Dateityp
 
  MsgBox ("Neuer Dateiname : " & newName)
 
  Call oDoc.SaveAs(newName, False) 
End Sub

MFG VOSTA1

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

---

hi wilfried,
das dieses script nicht funktionieren liegt daran, dass beim ersten aufruf noch keine dateiextension bekannt ist. setze einfach eine subroutine ein, die erkennt, welcher dateityp zur zeit geöffnet wurde.

ein ganz anderes thema sind sprechende dateinamen. meine erfahrungen sagen das dateiname einmalig sind, das bedeutet langjährige systemadministratoren wählen häufig als dateinamen die artikelnummer, des pps-system.
------------------
gruß
robby

[Diese Nachricht wurde von Robby Lampe am 05. Dez. 2003 editiert.]

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

---

Hallo Robby,

welche Script meinst Du denn? Meines, das von VOSTA1 oder das von Paul?

Gruß
Wilfried

[Diese Nachricht wurde von Fan-ME10 am 05. Dez. 2003 editiert.]

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

---

UserForm1.frm.txt

1. von vosta1
2. dein script geht doch, was du nur hast.

------------------
gruß
robby

[Diese Nachricht wurde von Robby Lampe am 05. Dez. 2003 editiert.]

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