я использую 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
'-----------------конец настройки пути к изображению---------------