使用FileDialog命令遇到.InitialFileName视图问题

时间:2013-06-16 06:31:18

标签: excel vba excel-vba directory filedialog

所以我使用FileDialog来选择一个完整的图像文件夹,我将它放入PowerPoint演示文稿中,但是我在查看正确的初始视图时遇到了问题。

这就是我所拥有的

strFolder = InitDir
Set fldr = Application.FileDialog(msoFileDialogFolderPicker)

With fldr
    .Title = "Select a Folder"
    .AllowMultiSelect = False
    .ButtonName = "Select"
    .InitialView = msoFileDialogViewList
    .InitialFileName = "C:\Users\Daniel\My Pictures\" 'using to test code

    If Right(strName, 1) <> "\" Then
        strFolder = strFolder & "\"
    End If
    If .Show <> -1 Then
        Exit Sub
    Else
        strFolder = .SelectedItems(1) & "\"
    End If
End With

如果我在“我的图片”之后排除“\”,我的用户文件夹“Daniel”中的所有文件夹都出现在初始视图中,最初选择了“我的图片”,但是当我在之后包含“\”时,我认为是“FileDialogViewList”只是出现了。如何让“我的图片”文件夹最初出现。

2 个答案:

答案 0 :(得分:2)

您传递的initialFileName不正确,这就是它将My Documents显示为初始文件夹的原因。因为如果初始文件名不正确,则会显示默认目录。 尝试以下路径: C:\ Documents and Settings \ Daniel \ My Documents \ My Pictures \

答案 1 :(得分:0)

我有类似的问题,在调试过程中注意到,在文件或文件夹路径与此对象初始化时为文件对话框对象设置的相同的情况下,初始文件名设置为不您想要的那个,但是用户文档文件夹。为了解决这个问题,我帮助了这段代码:

Documents