Message 1 of 5
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Good afternoon everyone!
How can I copy a drawing file in one folder and save it in another folder?
Dim Filedata As String Dim Filework As String Filedata = ThisDoc.Path + "\DATA\Drawing_1.idw" Filework = ThisDoc.Path + "\Drawing_1.idw" Select Case OPTION_C Case "OPTION-C0" InventorVb.Application.FileManager.DeleteFile(Filework) Case "OPTION-C1" ThisApplication.Documents.Open(Filedata, False) ThisDoc.Document.SaveAs(Filework, True) ThisDoc.Document.Close(True) Case Else 'MessageBox.Show("***", "Title") End Select
Solved! Go to Solution.