Date Functions VisualBasic Script

Sub dateD()
    MsgBox DateDiff("ww", "6/3/2006", "9/30/2006")
End Sub
'Using the Dir Function to Check Whether a File Exists
  Sub Does_File_Exist()
      Dim strTestFile As String, strNameToTest As String
      strNameToTest = "c:\"
      If strNameToTest = "" Then End
      strTestFile = Dir(strNameToTest)
      If Len(strTestFile) = 0 Then
          Debug.Print "The file " & strNameToTest & " does not exist."
      Else
          Debug.Print "The file " & strNameToTest & " exists."
      End If
  End Sub