File Path VisualBasic Script

Sub dateFunctions()
    Debug.Print "vbLongDate: " & FormatDateTime(Now, vbLongDate)
End Sub