01-05-2018
07:20 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
01-05-2018
07:20 AM
Dim fileName As String
Dim path As String
path = ThisDoc.WorkspacePath()
fileName = "filename"
ThisDoc.Document.SaveAs(path & "\" & "900C7H" & L_1 & ".ipt" , False)
doc = ThisDoc.Document
path_and_name = ThisDoc.PathAndFileName(False) ' without extension
iLogicVb.UpdateWhenDone = True
MessageBox.Show("Your file has been made", "SPACER")