---

Hello my friends!!
I need your help!
I want to save a file-this is simple- but using a save dialogbox,
If enybody could help !
Thanks and best regards

[Diese Nachricht wurde von toyo83 am 22. Mai. 2007 editiert.]

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

---

I hope its working!

Sub CATMain()

Dim File

File=CATIA.FileSelectionBox("Filename", "*.catproduct", CATFileSelectionModeSave)

CATIA.ActiveDocument.SaveAs File

End Sub

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

---

Moin Toyo83,

Is this what you mean?

str = CATIA.FileSelectionBox("Save", "*.txt", CatFileSelectionModeSave)

regards
Proofin

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

---

Zitat:

---

Original erstellt von YellowDevil:
I hope its working!

Sub CATMain()

Dim File

File=CATIA.FileSelectionBox("Filename", "*.catproduct", CATFileSelectionModeSave)

CATIA.ActiveDocument.SaveAs File

End Sub

---

yes !!!
but there is a error msg ByRef Argumnet, type mismatch and the compiler show the File as the bad argument

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

---

 

Zitat:

---

Original erstellt von toyo83:
[QUOTE]Original erstellt von YellowDevil:
[i]I hope its working!

Sub CATMain()

Dim File

File=CATIA.FileSelectionBox("Filename", "*.catproduct", CATFileSelectionModeSave)

CATIA.ActiveDocument.SaveAs File

End Sub

---

yes !!!
but there is a error msg ByRef Argumnet, type mismatch and the compiler show the File as the bad argument[/i][/QUOTE]

Ok it works !!
You forgot to put File in brackets 
Thanks and best REGARDS guys !!!!!!

[Diese Nachricht wurde von toyo83 am 22. Mai. 2007 editiert.]

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

---

What a kind of Filetyp, do you want to Save?

Product,Part,Drawing,...

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