请大家帮忙看看我保存.DWG文件的路径有什么问题吗

andy0310 · 发表于 2006-3-22 14:48:00

Private Sub mnu_文件另存为_Click()
Dim key1 As Integer
Dim i As Integer, k As Integer
        On Error GoTo err0
        CommonDialog1.Filter = "AutoCAD文件(*.dwg)|*.dwg|" & "全部文件(*.*)|*.*|"
        CommonDialog1.CancelError = True
        CommonDialog1.DialogTitle = "另存为"

        CommonDialog1.ShowSave
        File_保存文件.Path = CurDir
        File_保存文件.Pattern = "*.dwg"
        k = 0
        For i = 0 To File_保存文件.ListCount - 1
            If LCase(CommonDialog1.FileName) = LCase(File_保存文件.Path & "\" & File_保存文件.List(i)) Then
               k = 1
               Exit For
            End If
        Next i
        If k = 1 Then
           key1 = MsgBox("该文件已存在，是否要替换", vbYesNo + vbQuestion, "保存文件")
           Select Case key1
           Case vbNo
                'CommonDialog1.filename = ""
                Exit Sub
           Case vbYes
           filename0 = CommonDialog1.FileName
           End Select
        Else
         filename0 = CommonDialog1.FileName
         acadApp.activedocument.SaveAs File_保存文件.Path & "\" & filename0 & ".dwg"
        End If
End Sub

andy0310 · 发表于 2006-3-22 20:16:00

好人没有人愿意帮忙的啊

雪山飞狐_lzh · 发表于 2006-3-22 20:26:00

可以用FileSystemObject对象来检查文件是否存在

你自己也没有说有什么问题么：）

andy0310 · 发表于 2006-3-22 20:55:00

关键是我不知道

acadApp.activedocument.SaveAs File_保存文件.Path & "\" & filename0 & ".dwg"
有什么问题啊，但是文件不能保存的啊

雪山飞狐_lzh · 发表于 2006-3-22 22:13:00

你把File_保存文件.Path & "\" & filename0 & ".dwg"的值Msgbox一下看看

MJTD_7777 · 发表于 2006-3-23 08:20:00

本人水平有限.

不过你让别人帮你调试程序,总要给一个基本能调试的程序吧!

err0: 没有

File_保存文件是个List 不知干什么用.

andy0310 · 发表于 2006-3-23 12:29:00

不好意思，我就是想知道我用CommonDialog保存文件时候的路径怎么写

就是　acadApp.activedocument.SaveAs　保存在当前路径下

acadApp.activedocument.SaveAs & "\" & filename0 & ".dwg"　这个写法有什么问题的啊

账号		自动登录	找回密码
密码			注册