strFolder = "F:\Inventor Drgs" ' "\" ' GoExcel.CellValue("MEM.xls", "INPUT", "B14") ' "\" ' GoExcel.CellValue("MEM.xls", "INPUT", "A1") ' "\" ' GoExcel.CellValue("MEM.xls", "INPUT", "D14") '' ThisDoc.FileName(False) 'without extension
strFile = GoExcel.CellValue("MEM.xls", "INPUT", "B14") ' "-" ' GoExcel.CellValue("MEM.xls", "INPUT", "C14")' "-" ' GoExcel.CellValue("MEM.xls", "INPUT", "D14")' "-" ' GoExcel.CellValue("MEM.xls", "INPUT", "P9")' "-" ' GoExcel.CellValue("MEM.xls", "INPUT", "P11")' "-" ' GoExcel.CellValue("MEM.xls", "INPUT", "P12")' "-" ' GoExcel.CellValue("MEM.xls", "INPUT", "P13")' "-" ' GoExcel.CellValue("MEM.xls", "INPUT", "P14")'"-"' GoExcel.CellValue("MEM.xls", "INPUT", "P18")'"-HT"' "-Rev-" ' GoExcel.CellValue("MEM.xls", "INPUT", "E14") 'ThisDoc.FileName(False)
If(Not System.IO.Directory.Exists(strFolder )) Then
System.IO.Directory.CreateDirectory(strFolder)
End If
ThisDoc.Document.SaveAs(strFolder '"\"' rstrFile '(".dwg") , True)
But when this rule will run second time if strfile name is same it won't show massage if replacing but I want that
And wanna have dwg saved with strfile name with adding 01,01 etc at the end
MessageBox.Show("All file formats saved", "File Save")