Hi Guy's, I thought I could clear this but after a slight adjustment to Moke123 suggestion
How can i add an array of numbers for each folder and add to an input box so a user can select a number to open the folder name ?
Immediate window displays folder names correctly
Code:
Dim fol As Object, sfol As Object, fso As Object
Set fso = CreateObject("Scripting.filesystemobject")
strFolder = "T:\Dave\Images\Stored Images\"
Set fol = fso.GetFolder(strFolder)
For Each sfol In fol.SubFolders
Debug.Print mID(sfol.path, InStrRev(sfol.path, "\") + 1)
Next
How do i add something like
Code:
Dim iFolders as Integer, i as Integer
For i = 1 To mID(sfol.path, InStrRev(sfol.path, "\") + 1)
iFolders = InputBox("Enter Which Folder To Open ?" & vbcrlf & vbcrlf & _
Chr(149) & " " & i & " " Chr(149) & " " & Add Array Of Folder Names)
Hope i have asked this correctly to understand
Then i Can add something like
Code:
Select Case i
case = 1
Application.FollowHyperlink strFolder & FolderName
Etc.......