Dim FileName As String
FileName = "D:"
Shell "explorer.exe " & FileName, vbNormalFocus