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

我使用的是vba access 2010，并且有一个简单的窗体，一个按钮控件。这个想法是创建一个文件夹，然后使用filedialog打开我刚创建的文件夹。我能够创建文件夹，但我如何打开到我刚刚创建的路径？下面将是我的代码，如果有人能提供帮助，我会非常感激。在此先感谢打开文件对话框的正确路径问题

选项比较数据库

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

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

来源

2013-06-20 user2505231

将它作为变量传递。

在你Command0_Click子，设置你的目录为变量，像

X = "MyPath To My Folder"

然后，调用setProfilePicture（X）

在setProfilePicture，设置它像：

Private Sub setProfilePicture(MyDir as String)

然后，MyDir现在成为您的文件夹的路径，并且您可以将其用作您的子文件夹中的变量：

来源

2013-06-20 14:17:02

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

回答

相关问题