GetDirectory in VBA not showing everything

[dee101]

When I look at devices and drives under this pc I can see local disk (c), DVD RW Drive (D), USB’s (E-H) and my phone.

In the code I do not see my phone listed there, is there anyway to make it show also.
Here is the code I am using
Excel 2003

Msg = "Select the directory. All subdirectories will be included."

Directory = GetDirectory(Msg)

If Directory = "" Then Exit Sub

If Right(Directory, 1) <> "\" Then Directory = Directory & "\"

 

[Bosquedeguate]

Does this work on your version of Excel?

I had to respond to a prompt on my iPhone to "trust" the computer that was trying to access it.

Public Function DirectoryDialog() As String
  Dim directory
  Msg = "Select the directory. All subdirectories will be included."
  
  With Application.FileDialog(msoFileDialogFolderPicker)
    .Show
    'Debug.Print .SelectedItems.Count
    If .SelectedItems.Count = 0 Then Exit Function
    directory = .SelectedItems(1)
    
  End With
  If Right(directory, 1) <> "\" Then directory = directory & "\"
  DirectoryDialog = directory
End Function