Hi All, the following code will add folder names to a Combo Box, is it an easy task to populate to an input box instead and have a unique number to follow the path to the selected folder in a dialog box using Dim fd as FileDialog ?
Code:
Set fso = CreateObject("Scripting.FileSystemObject") Me.cboViewPO.RowSource = ""
Me.cboViewPO.Requery
SubFolderName = "T:\Folder1\Folder2\"
Set flD = fso.getfolder(SubFolderName)
For Each Fil In flD.Files
i = i + 1
Me.cboViewPO.AddItem Fil.Name ' ADD TO INPUTBOX ??
Next Fil
Me.lblPOs.Caption = i & " " & "PDF's"
Me.cboViewPO.Requery
ABOVE WORKS GREAT TO POPULATE A COMBO WITH FOLDER NAMES
BELOW IS SOMETHING I AM LOOKING TO DO IS POPULATE AN INPUTBOX MORE INPUT BOXES POPS UP IF NO NUMBER IS SELECTED
SOMETHING LIKE
Code:
Dim fs3, sf3, fl3, FldList As Variant Dim i As Long
Dim MyOption, FldCount As Long
Set fs3 = CreateObject("Scripting.FileSystemObject")
SubFolderName = "T:\Folder1\"
Set fl3 = fs3.getfolder(SubFolderName)
Set sf3 = fl3.SubFolders
For Each fl3 In sf3
i = i + 1
FldList = fl3.Name
Next fl3
MyOption = InputBox("Enter Which Folder To Open ?" & Chr(10) & Chr(10) & _
FldList, "SELECT FOLDER") IS IT POSSIBLE TO HAVE 8 numbers if 8 subfolders in the FldList ? ie: Enter 1 To Open Folder1 & Chr(10) & _ Enter 2 To Open Folder2 etc....
THEN SOMETHING LIKE
Dim fd As FileDialog
Select Case MyOption
Case 1
Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.InitialFileName = "T:\Folder1" & "*.pdf*"
With fd
.InitialFileName = "T:\Folder1" & "*.pdf"
If .Show = -1 Then
.Show
DoCmd.RunCommand acCmdAppMinimize
End If
End With
Case 2
Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.InitialFileName = "T:\Folder1\Folder2" & "*.pdf*"
With fd
.InitialFileName = "T:\Folder1\Folder2" & "*.pdf"
If .Show = -1 Then
.Show
DoCmd.RunCommand acCmdAppMinimize
End If
End With
PS: HOPE ALL OF THIS MAKE SENSE!!!