File Path VisualBasic Script

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