With CreateObject("Scripting.FileSystemObject") Content = .GetFolder(FileName).Files.GetFileName End With