File Path VisualBasic Script

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