Hallo,
Ik heb in een userform een listbox en een commandbutton gemaakt. Met onderstaande code
krijg ik een lijst van bestanden in een bepaalde directory. Tot zover lukt het....
Private Sub UserForm_Initialize()
Dim i As Long
With Application.FileSearch
.NewSearch
.LookIn = "C:\Noodmap\Weegbrieven"
.SearchSubFolders = True
.Filename = "*" & SearchString & "*"
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
ListBox1.AddItem .FoundFiles(i)
Next i
Else
MsgBox "There were no files found."
End If
End With
End Sub
Onderstaande heb ik in de commandbutton staan:
Private Sub CommandButton1_Click()
Dim SelectedDocument As String
SelectedDocument = ListBox1.Value
Activate SelectedDocument
Unload UserForm1
End Sub
Als ik dan een bestandje selecteer in de listbox en daarna druk ik de commandbutton in dan moet het bestandje opgestart worden.... maar dit lukt niet de fout zit in deze regel......
Activate SelectedDocument
Wat moet ik hieraan veranderen dat het bestandje toch wordt geopend?
Alvast bedankt!
BasMan
Ik heb in een userform een listbox en een commandbutton gemaakt. Met onderstaande code
krijg ik een lijst van bestanden in een bepaalde directory. Tot zover lukt het....
Private Sub UserForm_Initialize()
Dim i As Long
With Application.FileSearch
.NewSearch
.LookIn = "C:\Noodmap\Weegbrieven"
.SearchSubFolders = True
.Filename = "*" & SearchString & "*"
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
ListBox1.AddItem .FoundFiles(i)
Next i
Else
MsgBox "There were no files found."
End If
End With
End Sub
Onderstaande heb ik in de commandbutton staan:
Private Sub CommandButton1_Click()
Dim SelectedDocument As String
SelectedDocument = ListBox1.Value
Activate SelectedDocument
Unload UserForm1
End Sub
Als ik dan een bestandje selecteer in de listbox en daarna druk ik de commandbutton in dan moet het bestandje opgestart worden.... maar dit lukt niet de fout zit in deze regel......
Activate SelectedDocument
Wat moet ik hieraan veranderen dat het bestandje toch wordt geopend?
Alvast bedankt!
BasMan
