打开文件对话框的正确路径的问题答案

【问题标题】：Issue with opening the right path for file dialog打开文件对话框的正确路径的问题
【发布时间】：2013-06-20 13:00:35
【问题描述】：

我正在使用 vba access 2010 并且有一个简单的表单，一个按钮控件。这个想法是创建一个文件夹，然后使用文件对话框打开我刚刚创建的文件夹。我可以创建文件夹，但是如何打开我刚刚创建的路径？下面将是我拥有的代码，如果有人可以提供帮助，我将非常感激。提前谢谢

选项比较数据库

Private Sub Command0_Click()

 Dim Foldername As String
 Foldername = "\\server\Instructions\"

 MkDir ("C:\Users\Stanley\Desktop\New folder\123")


 setProfilePicture
End Sub

'---------图片路径设置----------

Private Sub setProfilePicture()

'Declare a variable as a FileDialog object.
    Dim fd As FileDialog

    'Create a FileDialog object as a File Picker dialog box.
    Set fd = Application.FileDialog(msoFileDialogFilePicker)

    'Declare a variable to contain the path
    'of each selected item. Even though the path is a String,
    'the variable must be a Variant because For Each...Next
    'routines only work with Variants and Objects.
    Dim vrtSelectedItem As Variant

    'Use a With...End With block to reference the FileDialog object.
    With fd


    'Change the contents of the Files of Type list.
    'Empty the list by clearing the FileDialogFilters collection.
    .Filters.Clear

    'Add a filter that includes all files.
    .Filters.Add "All files", "*.*"

    'Add a filter that includes GIF and JPEG images and make it the first item in the list.
    .Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1

    'Use the Show method to display the File Picker dialog box and return the user's action.
    'The user pressed the action button.
    If .Show = -1 Then

    'Step through each String in the FileDialogSelectedItems collection.
    For Each vrtSelectedItem In .SelectedItems

    'vrtSelectedItem is a String that contains the path of each selected item.
    'You can use any file I/O functions that you want to work with this path.
    'This example simply displays the path in a message box.
    'MsgBox "Path name: " & vrtSelectedItem
    Me.ImagePerson.Picture = vrtSelectedItem
    'Me.TextboxPersonFilepath.Value = "File path: " & vrtSelectedItem
    Next vrtSelectedItem
    'The user pressed Cancel.
    Else
    End If
    End With

    'Set the object variable to Nothing.
    Set fd = Nothing

End Sub

'-----图片路径设置结束--------------

【问题讨论】：

标签： image ms-access filedialog

【解决方案1】：

将其作为变量传递。

在您的 Command0_Click 子中，将您的目录设置为变量，例如

X = "MyPath To My Folder"

然后，调用 setProfilePicture(X)

在setProfilePicture中，设置如下：

Private Sub setProfilePicture(MyDir as String)

那么 MyDir 现在是你的文件夹的路径，你可以在你的子目录中使用它作为变量

【讨论】：