Pls help...new to scripting

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Pls help...new to scripting

Logged in as: Guest

arrSession:exec spGetSession 2,2,42086

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Pls help...new to scripting
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Pls help...new to scripting - 1/16/2007 6:47:25 AM

bnath001

Posts: 1
Score: 0
Joined: 1/16/2007
Status: offline

I am writing vbscript code that checks for existence of file in a folder and if the file exists, should actually compare the file creation date with the system date.
if they are equal, it should rename the file to .old extention.

I have hard time to compare two dates. How to compare two dates (short format).

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile("C:\code\OpicsEod\check.vbs")
If objFile.Size > 0 Then

   if date = cdate(objFile.DateCreated) Then
       wscript.Echo "same date"
   else
       wscript.Echo "not same date"
   end if
Else
   Wscript.Echo "The file is empty."
End If

help much appreciated.
thanks
nath

Post #: 1

RE: Pls help...new to scripting - 1/16/2007 7:06:38 AM

dm_4ever

Posts: 2721
Score: 46
Joined: 6/29/2006
From: Orange County, California
Status: offline

I saw this same question here: http://www.tek-tips.com/viewthread.cfm?qid=1321677&page=1

_____________________________

dm_4ever

My philosophy: K.I.S.S - Keep It Simple Stupid
Read Me: http://www.visualbasicscript.com/m_24727/tm.htm
Frequently Asked Stuff: http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to bnath001)

Post #: 2

RE: Pls help...new to scripting - 1/16/2007 7:43:59 AM

mbouchard

Posts: 1924
Score: 16
Joined: 5/15/2003
From: USA
Status: offline

Here is some code from a larger script that uses a function written by a former coworker to compare file versions.

Set wshShell = CreateObject("WScript.Shell")
Msgbox GetIEVersion
Function GetIEVersion
   'Requires WshShell Object and CompareVersion Function
   Dim sPath
   sPath = Wshshell.regread("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\IEXPLORE.EXE\")
      If CompareVersion(Fso.getfileversion(sPath),"7.0.5700.6") = 0 Then
          GetIEVersion = "IE7RC1"
   ElseIf CompareVersion(Fso.getfileversion(sPath), "6.00.2900.2180") = 0 Then
       GetIEVersion = "IE6SP2"
   ElseIf CompareVersion(Fso.getfileversion(sPath), "6.00.2800.1106") = 0 Then
       GetIEVersion = "IE6SP1"
   ElseIf CompareVersion(Fso.getfileversion(sPath), "6.00.2600.0000") = 0 Then
       GetIEVersion = "IE6"
   ElseIf CompareVersion(Fso.getfileversion(sPath), "5.50.4807.2300") = 0 Then
       GetIEVersion = "IE55SP2"
   ElseIf CompareVersion(Fso.getfileversion(sPath), "5.50.4522.1800") = 0 Then
       GetIEVersion = "IE55SP1"
   ElseIf CompareVersion(Fso.getfileversion(sPath), "5.00.3700.1000") = 0 Then
       GetIEVersion = "IE51SP4"
   ElseIf CompareVersion(Fso.getfileversion(sPath), "5.00.3502.1000") = 0 Then
       GetIEVersion = "IE51SP3"
   ElseIf CompareVersion(Fso.getfileversion(sPath), "5.00.3315.1000") = 0 Then
       GetIEVersion = "IE51SP2"
   ElseIf CompareVersion(Fso.getfileversion(sPath), "5.00.3103.1000") = 0 Then
       GetIEVersion = "IE51SP1"
   ElseIf CompareVersion(Fso.getfileversion(sPath), "5.00.2920.0000") = 0 Then
       GetIEVersion = "IE51"
   Else
       GetIEVersion = "UNKNOWN"
   End If
End Function

Function CompareVersion(ByVal strVersion1, ByVal strVersion2)
   Dim v1, v2, t1, t2
   'Returns -1 if strVersion1<strVersion2
   'Returns 1 if strVersion1>strVersion2
   'Returns 0 if strVersion1=strVersion2
   CompareVersion = 0
   If strVersion1="" Or strVersion2="" Then
       If strVersion1<strVersion2 Then
           CompareVersion = -1
           Exit Function
       Else
           If v1>v2 Then
               CompareVersion = 1
               Exit Function
           Else
               CompareVersion = 0
               Exit Function
           End If
       End If
   End If
   t1 = Instr(strVersion1, ".")
   If t1 = 0 Then t1 = Len(strVersion1)+1
   t2 = Instr(strVersion2, ".")
   If t2 = 0 Then t2 = Len(strVersion2)+1
   Do While True
       v1 = CInt(Left(strVersion1,t1-1))
       v2 = CInt(Left(strVersion2,t2-1))
       If v1<v2 Then
           CompareVersion = -1
           Exit Function
       Else
           If v1>v2 Then
               CompareVersion = 1
               Exit Function
           End If
       End iF
       strVersion1 = Mid(strVersion1,t1+1)
       strVersion2 = Mid(strVersion2,t2+1)
       If strVersion1="" Or strVersion2="" Then
           If strVersion1<strVersion2 Then
               CompareVersion = -1
               Exit Function
           Else
               If v1>v2 Then
                   CompareVersion = 1
                   Exit Function
               Else
                   CompareVersion = 0
                   Exit Function
               End If
           End If
       End iF
       t1 = Instr(strVersion1, ".")
       If t1 = 0 Then t1 = Len(strVersion1)+1
       t2 = Instr(strVersion2, ".")
       If t2 = 0 Then t2 = Len(strVersion2)+1
   Loop
End Function

_____________________________

Mike

For useful Scripting links see the Read Me First stickey!

Always remember Search is your friend.

(in reply to dm_4ever)

Post #: 3

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Pls help...new to scripting

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts