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

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

<P>Private Sub mnu_文件另存为_Click()<BR>Dim key1 As Integer<BR>Dim i As Integer, k As Integer<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; On Error GoTo err0<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; CommonDialog1.Filter = "AutoCAD文件(*.dwg)|*.dwg|" &amp; "全部文件(*.*)|*.*|"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; CommonDialog1.CancelError = True<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; CommonDialog1.DialogTitle = "另存为"</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; CommonDialog1.ShowSave<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; File_保存文件.Path = CurDir<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; File_保存文件.Pattern = "*.dwg"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; k = 0<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For i = 0 To File_保存文件.ListCount - 1<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If LCase(CommonDialog1.FileName) = LCase(File_保存文件.Path &amp; "\" &amp; File_保存文件.List(i)) Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; k = 1<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit For<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next i<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If k = 1 Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; key1 = MsgBox("该文件已存在，是否要替换", vbYesNo + vbQuestion, "保存文件")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Select Case key1<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case vbNo<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'CommonDialog1.filename = ""<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit Sub<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case vbYes<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; filename0 = CommonDialog1.FileName<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End Select<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; filename0 = CommonDialog1.FileName<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; acadApp.activedocument.SaveAs File_保存文件.Path &amp; "\" &amp; filename0 &amp; ".dwg"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<BR>End Sub</P>

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

<P>好人没有人愿意帮忙的啊</P>

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

<P>可以用FileSystemObject对象来检查文件是否存在</P>
<P>你自己也没有说有什么问题么：）</P>

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

<P>关键是我不知道</P>
<P>acadApp.activedocument.SaveAs File_保存文件.Path &amp; "\" &amp; filename0 &amp; ".dwg"<BR>有什么问题啊，但是文件不能保存的啊</P>

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

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

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

<P>本人水平有限.</P>
<P>不过你让别人帮你调试程序,总要给一个基本能调试的程序吧!</P>
<P>err0: 没有</P>
<P>File_保存文件 是个List 不知干什么用.</P>

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

<P>不好意思，我就是想知道我用CommonDialog保存文件时候的路径怎么写</P>
<P>就是　acadApp.activedocument.SaveAs　保存在当前路径下</P>
<P>acadApp.activedocument.SaveAs &amp; "\" &amp; filename0 &amp; ".dwg"　这个写法有什么问题的啊<BR></P>
页: [1]
查看完整版本: 请大家帮忙看看我保存.DWG文件的路径有什么问题吗