code:

---

$RegKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\OUTLOOK.EXE"
$outmaj = SUBSTR((GETFILEVERSION(READVALUE($RegKey,""))), 1, (INSTR(GETFILEVERSION(READVALUE($RegKey,"")), ".")-1))
?$outmaj

---

code:

---

$RegKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\OUTLOOK.EXE"
$outver = (GETFILEVERSION(READVALUE($RegKey,"")))
$pos = (INSTR(GETFILEVERSION(READVALUE($RegKey,"")), ".")-1)
$outmaj = SUBSTR($outver, 1, $pos)
?$outmaj

---

code:

---

IF GetFileAttr( "C:\ScriptTest" ) & 16
ELSE
     MD "C:\ScriptTest"
ENDIF

---

code:

---

IF (EXIST("C:\ScriptTest\nul") <> 1)
     MD "C:\ScriptTest"
ENDIF

---

code:

---

IF EXIST("C:\ScriptTest\Program.exe")
ELSE
     COPY @LSERVER+"Programs\Program.exe" "C:\ScriptTest"
ENDIF

---

code:

---

IF (1 <> EXIST("C:\ScriptTest\Program.exe"))
     COPY @LSERVER+"Programs\Program.exe" "C:\ScriptTest"
ENDIF

---

code:

---

IF (EXIST("C:\ScriptTest\Program") <> 1)
     COPY @LSERVER+"Programs\Program.exe" "C:\ScriptTest"
ENDIF

---

code:

---

IF (GetFileAttr( "C:\ScriptTest" ) & 16) = 0
 MD "C:\ScriptTest"
ENDIF

---

code:

---

 ;Trying To Create A Folder If Necessary
$FolderNameToCheck = "C:\ScriptTest"
$Result            = -1

If Exist($FolderNameToCheck)
   If GetFileAttr($FolderNameToCheck) & 16
      $Result = 1
   Else
      $Result = -2
   EndIf
Else
   MD $FolderNameToCheck
   $CommandError  = @Error
   $CommandSError = @SError
   If $CommandError = 0
      $Result = 0
   Else
      $Result       = -3
      $CommandError = CStr($CommandError)
   EndIf
EndIf   

Select
   Case $Result = 0
      ? "Folder " + $FolderNameToCheck + " Successfully Created"
   Case $Result = 1
      ? "Folder " + $FolderNameToCheck + " Already Exists"
   Case $Result = -2
      ? "Can't create Folder " + $FolderNameToCheck
      ? "Duplicated File/Folder Name"
   Case $Result = -3
      ? "An Error Has Occured During " + $FolderNameToCheck + " Folder Creation"
      ? "[" + $CommandSError + "] " + $CommandSError
   Case 1
      ? "UnExpected Result"
EndSelect

If $Result >= 0
  ? "Ok, We Can Go On"
Else
  ? "Something Has Happend, We Have To Check "
EndIf 

---

code:

---

Break on
$BasePath = "%windir%\system32\config\"
$strFile = "appevent.evt","secevent.evt","sysevent.evt"
For each $element in $strFile
  $objFSO = CreateObject("Scripting.FileSystemObject")
  ? $BasePath + $element + " = "
$objFSO.GetFile($BasePath + $element).Size
Next
$objFSO = ""
get $_
  

---

code:

---

 ; - Test environment: Windows XP
 ; - Kix Version: 4.12
 ; - Kent Dyer
 ; - 30-October-2002
 ; - version .8
 ; - Test: Create a simple text file called ScripTest and insert some text in it
 ; - Findings: a file name and folder name of the same name cannot exist on the same volume
 ; - Thanks: to bxn from http://kixtart.org for pointing out the error 183 when a file exists with
 ; - same name as the folder

 ; - using fso per Les
 BREAK ON 
 CLS
 ;Trying To Create A Folder as Necessary
 $foldernametocheck = "C:\ScriptTest"
 $lenfolder = Len($foldernametocheck)
 $foldername = substr($foldernametocheck,4,$lenfolder)

 ; - First check to see if this is a file
 IF EXIST($foldernametocheck) AND NOT (GETFILEATTR($foldernametocheck) & 16)
       ? $foldernametocheck + " appears to exist as a file"
       ?'Press Y and <ENTER> to continue and rename the file and create the folder'
       ?'Press N and <ENTER> to exit'
       ?'>'
       GETS $k
       IF $k = 'Y'
             SHELL "%comspec% /c ren " + $foldernametocheck + " " + $foldername + "1"
             ReportFolderStatus($foldernametocheck)
       ELSE
             RETURN
       ENDIF
 ELSE
 ?$foldernametocheck + " Appears to exist as a folder."
 SLEEP 2
 ENDIF

 FUNCTION ReportFolderStatus($fldr)
      ; - http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/jsmthFolderExists.asp
       DIM $fso, $msg
       $fso = CreateObject("Scripting.FileSystemObject")
       IF ($fso.folderexists($fldr))
             ?$fldr + " exists."
       ELSE
             ?$fldr + " doesn't exist."
             ?"Creating now"
             MD $foldernametocheck
             IF @error <> 0
                   ?@error
                   SLEEP 2
             ENDIF
       ENDIF
 ENDFUNCTION
 ? "File/folder checks complete"
 ? "Press any Key to exit"
 GET $l

---

code:

---

 ; - Test environment: Windows XP
 ; - Kix Version: 4.12
 ; - Kent Dyer
 ; - 30-October-2002
 ; - version .8
 ; - Test: Create a simple text file called ScripTest and insert some text in it
 ; - Findings: a file name and folder name of the same name cannot exist on the same volume
 ; - Thanks: to bxn from http://kixtart.org for pointing out the error 183 when a file exists with
 ; - same name as the folder
 ;
 ; - using Kixtart commands
 BREAK ON
 CLS
 ;Trying To Create A Folder as Necessary
 $foldernametocheck = "C:\ScriptTest"
 $lenfolder = Len($foldernametocheck)
 $foldername = substr($foldernametocheck,4,$lenfolder)

 ; - First check to see if this is a file
 IF EXIST($foldernametocheck) AND NOT (GETFILEATTR($foldernametocheck) & 16)
       ? $foldernametocheck + " appears to exist as a file"
       ?'Press Y and <ENTER> to continue and rename the file and create the folder'
       ?'Press N and <ENTER> to exit'
       ?'>'
       GETS $k
       IF $k = 'Y'
             SHELL "%comspec% /c ren " + $foldernametocheck + " " + $foldername + "1"
             ?"Creating "+ $foldernametocheck + " now"
             MD $foldernametocheck
             IF @error <> 0
                   ?@error
                   SLEEP 2
             ENDIF
       ELSE
             RETURN
       ENDIF
 ENDIF
 IF EXIST($foldernametocheck) AND (GETFILEATTR($foldernametocheck) & 16)
       ?$foldernametocheck + " Appears to exist as a folder."
       SLEEP 2
       RETURN
 ELSE
       ?"Creating " + $foldernametocheck + " now"
       MD $foldernametocheck
       IF @error <> 0
             ?@error
             SLEEP 2
       ENDIF
 ENDIF
 ? "File/folder checks complete"
 ? "Press any Key to exit"
 GET $l

---

Thank bxn for pointing the error condition out..

Thanks Les for pointing out the option for fso.

Now, to look at the Program existence thing.

Cheers,

Kent

[ 03. November 2002, 18:00: Message edited by: kdyer ]

code:

---

 ; - Test environment: Windows XP
 ; - Kix Version: 4.12
 ; - Kent Dyer
 ; - 30-October-2002
 ; - version .8
 ; - Test: Create a Folder in a sub-directory with the name of Program.exe
 ; - Findings: a file name and folder name of the same name cannot exist on the same volume
 ; - Thanks: to bxn from http://kixtart.org for pointing out the error 183 when a file exists with
 ; - same name as the folder
 ;
 ; - using Kixtart commands
 BREAK ON
 CLS
 ;Trying To Create A Folder and copy a file as Necessary
 $folder = "C:\ScriptTest"
 $program = "Program.exe"

 IF (GETFILEATTR($folder) & 16) ; - Check to not only see if the file exists, but the folder too
       IF EXIST($folder + "\" + $program)
             IF EXIST($folder + "\" + $program) AND (GETFILEATTR($folder + "\" + $program) & 16)
                   ?$folder + "\" + $program + " appears to be a folder - please correct"
                   SLEEP 2
                   RETURN
             ELSE
                   ?$folder + "\" + $program + " appears to be correct"
             ENDIF
       ELSE
             COPY @lserver+"Programs\"+ $program $folder
             IF @error <> '0'
                   ?@error
             ENDIF
       ENDIF
 ELSE
       ?'Press Y and <ENTER> to continue and create the folder and copy the file'
       ?'Press N and <ENTER> to exit'
       ?'>'
       GETS $k
       IF $k = 'Y'
             MD $folder
             IF @error <> '0'
                   ?@error + ' Error while creating the directory'
             ENDIF
             COPY @lserver+"Programs\"+ $program $folder
             IF @error <> '0'
                   ?@error
             ENDIF
       ELSE
             RETURN
       ENDIF
 ENDIF
 ? "File/folder checks complete"
 ? "Press any Key to exit"
 GET $l

---