Monday, June 1, 2009

Play Free Online Games www.baggygames.com/games العاب فلاش العاب جدة بايكرز موقع العاب جديدة او

Welcome to
BaggyGames.com


Here you can find tons of great online flash games to play.
Remember to check back often because we are always adding new games.

Play Free Online Games, sports games, massive multiplayer games, action games, puzzle games, flash games and more, casual games. Free online and downloadable games! Play arcade games, board games, card games, puzzle games and other free games at Yahoo! Games. Free games online from Games.com. Games.com has free online games and download games of every kind. Play puzzle games, arcade games, casino games, ...

Play Free Online Games

Games Forum

Magazine Games

Monday, March 16, 2009

Create a text file called test.txt

Create a text file called test.txt

<%
Dim objFSO, objFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("d:\test.txt", True)
objFile.WriteLine("This is a test.")
objFile.Close
%>

creates a folder called New Folder1

creates a folder called New Folder1

<%
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateFolder("d:\New Folder1")
%>

Count words in a sentence

Count words in a sentence

<%
'the string to check
strText = "This is our sample text for this example"
'split the strText
arrText = Split(strText ," ")
'store the amount of words into intWords
intWords = Ubound(arrText )
'display how many words are in the sentence
Response.Write "There are " & intWords & " words in " & strText
%>

This copies a folder called mydata to backupdata

This copies a folder called mydata to backupdata

<%
Dim objFSO, objFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFolder "c:\mydata", "c:\backupdata"
%>


This copies a file called test.txt to test2.txt

This copies a file called test.txt to test2.txt

<%
Dim objFSO, objFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("d:\test.txt", True)
objFile.WriteLine("This is a test.")
objFile.Close
Set objFile = objFSO.GetFile("d:\test.txt")
objFile.Copy ("d:\test2.txt")
%>

Compare 2 strings using strComp

Compare 2 strings using strComp

<%
Dim strText1 , strText2
'our text strings
strText1 = "this is string 1"
strText2 = "this is string 2"
'compare the two strings and store in intResult
intResult = strComp(strText1 , strText2)
'if strings are identical the display this message
If intResult = 0 Then
Response.Write "Strings are identical"
'if strings are different then display this message
Else
Response.Write "strings are different"
End if
%>