Cacher is the code snippet organizer for pro developers

Function GetFolder(strPath As String) As String
Dim fldr As FileDialog
Dim sItem As String
Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
With fldr
    .Title = "Select a Folder"
    .AllowMultiSelect = False
    .InitialFileName = strPath
    If .Show <> -1 Then GoTo NextCode
    sItem = .SelectedItems(1)
End With
NextCode:
GetFolder = sItem
Set fldr = Nothing
End Function

MsgBox Workbooks("path-fullname.xls").Path

MsgBox ActiveWorkbook.FullName

Workbooks.Open ("file.xls")

Dim MyFile As String
MyFile = Application.GetOpenFilename()

Workbooks.Open (MyFile)

Dim book As Workbook, sheet As Worksheet, text as String

For Each book In Workbooks
  text = text & "Workbook: " & book.Name & vbNewLine & "Worksheets: " & vbNewLine
  For Each sheet In book.Worksheets
    text = text & sheet.Name & vbNewLine
  Next sheet
  text = text & vbNewLine
Next book

MsgBox text

Dim directory As String, fileName As String, text As String

directory = "c:\test\"

'can use * for multiple and ? for single character
fileName = Dir(directory & "*.xl?")

Do While fileName <> ""
  text = text & fileName & vbNewLine
  'Dir is a special function. Use it again without arguments to get the next file
  fileName = Dir()
Loop

MsbBox text

Dim folderName As String

With Application.FileDialog(msoFileDialogFolderPicker)
  .AllowMultiSelect = False
  .Show
  On Error Resume Next
    folderName = .SelectedItems(1)
    Err.Clear
  On Error GoTo 0
End With

Workbooks("file.xls").Close

Workbooks(1).Close

ActiveWorkbook.Close

Workbooks.Close