一段代码，帮忙看看哪里出了问题？？？

非池中

Dim filename As FileDialog
Set filename = Application.FileDialog(msoFileDialogSaveAs)
With filename
   .InitialFileName = CreateObject("shell.application").namespace(5).self.Path & "\"   '获取我的文档路径
   MsgBox .InitialFileName
   .Show
End With
MsgBox filename.InitialFileName
这段代码第一次MSGBOX 可以返回正确的我的文档路径，第二次MSGBOX也就是在另存为对话框保存之后..InitialFileName变成“网络\"这是什么鬼？
还有就是Application.FileDialog(msoFileDialogSaveAs)怎么判断用户在对话框中点击了取消？？
谢谢！！！

suye1010

MsgBox filename.SelectedItems.Count
如果返回0，就表示没有选择

非池中

suye1010 发表于 2015-12-1 13:01
MsgBox filename.SelectedItems.Count
如果返回0，就表示没有选择

OK，第二个问题完美解决，第一个问题呢？谢谢~~

L50814026

你另存为的时候把文件存到了“网络"这个文件夹下面