//linkcount
Function getlinkcount(funcBrowser ,funcPage)
Set Linkobj = Description.Create()
Linkobj("html tag").value="A"
Set Links = Browser(funcBrowser).Page(funcPage).ChildObjects(Linkobj)
NumberOfLinks = Links.Count()
msgbox NumberOfLinks
End Function
//to click on a link
Function linkclick(funcPage,funcLink)
Set Linkobj = Description.Create()
Linkobj("html tag").value="A"
Browser(Browsername).page(funcpage).Link(funclink).Click
End Function

File System Object

'How to create a file and write data using File system object
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("c:\testfile.txt", True)
MyFile.WriteLine("This is a test.")
MyFile.Close

'To write into a file

Sub CreateFile()
Dim fso, tf
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile("c:\testfile.txt", True)
 tf.WriteLine("Testing 1, 2, 3.")
' Write three newline characters to the file.   
tf.WriteBlankLines(3)
' Write a line.
tf.Write ("This is a test.")
tf.Close
End Sub

The following example demonstrates how to open a file, write to it, and then read from it:

Sub ReadFiles
Dim fso, f1, ts, s
Const ForReading = 1
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile("c:\testfile.txt", True)
' Write a line.
Response.Write "Writing file <br>"
f1.WriteLine "Hello World"
f1.WriteBlankLines(1)
f1.Close
' Read the contents of the file.
Response.Write "Reading file <br>"
Set ts = fso.OpenTextFile("c:\testfile.txt", ForReading)
s = ts.ReadLine
Response.Write "File contents = '" & s & "'"
ts.Close
End Sub

'To create s new Folder
Dim fso, fldr
Set fso = CreateObject("Scripting.FileSystemObject")
Set fldr = fso.CreateFolder("C:\MyTest")
Response.Write "Created folder: " & fldr.Name

The following example creates a text file in the root directory of drive C, writes some information to it, moves it to a directory called \tmp, makes a copy of it in a directory called \temp, then deletes the copies from both directories.

To run the following example, create directories named \tmp and \temp in the root directory of drive C:

Sub ManipFiles
Dim fso, f1, f2, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile("c:\testfile.txt", True)
Response.Write "Writing file <br>"
' Write a line.
f1.Write ("This is a test.")
' Close the file to writing.
f1.Close
Response.Write "Moving file to c:\tmp <br>"
' Get a handle to the file in root of C:\.
Set f2 = fso.GetFile("c:\testfile.txt")
' Move the file to \tmp directory.
f2.Move ("c:\tmp\testfile.txt")
Response.Write "Copying file to c:\temp <br>"
' Copy the file to \temp.
f2.Copy ("c:\temp\testfile.txt")
Response.Write "Deleting files <br>"
' Get handles to files' current location.
Set f2 = fso.GetFile("c:\tmp\testfile.txt")
Set f3 = fso.GetFile("c:\temp\testfile.txt")
' Delete the files.
f2.Delete
f3.Delete
Response.Write "All done!"
End Sub

'The following example demonstrates how to use the Drive object:

Sub ShowDriveInfo(drvPath)
 Dim fso, drv, s
 Set fso = CreateObject("Scripting.FileSystemObject")
 Set drv = fso.GetDrive(fso.GetDriveName(drvPath))
 s = "Drive " & UCase(drvPath) & " - "
 s = s & drv.VolumeName & "<br>"
 s = s & "Total Space: " & FormatNumber(drv.TotalSize / 1024, 0)
 s = s & " Kb" & "<br>"
 s = s & "Free Space: " & FormatNumber(drv.FreeSpace / 1024, 0)
 s = s & " Kb" & "<br>"
 Response.Write s
End Sub

'The following example demonstrates how to use the Folder and FileSystemObject objects to manipulate folders and gain information about them.

Sub ShowFolderInfo()
 Dim fso, fldr, s
 ' Get instance of FileSystemObject.
 Set fso = CreateObject("Scripting.FileSystemObject")
 ' Get Drive object.
 Set fldr = fso.GetFolder("c:")
 ' Print parent folder name.
 Response.Write "Parent folder name is: " & fldr & "<br>"
 ' Print drive name.
 Response.Write "Contained on drive " & fldr.Drive & "<br>"
 ' Print root file name.
 If fldr.IsRootFolder = True Then
    Response.Write "This is the root folder." & ""<br>"<br>"
 Else
    Response.Write "This folder isn't a root folder." & "<br><br>"
 End If
 ' Create a new folder with the FileSystemObject object.
 fso.CreateFolder ("C:\Bogus")
 Response.Write "Created folder C:\Bogus" & "<br>"
 ' Print the base name of the folder.
 Response.Write "Basename = " & fso.GetBaseName("c:\bogus") & "<br>"
 ' Delete the newly created folder.
 fso.DeleteFolder ("C:\Bogus")
 Response.Write "Deleted folder C:\Bogus" & "<br>"
End Sub

'To Get when was the file last Modified
Dim fso, f1
Set fso = CreateObject("Scripting.FileSystemObject")
' Get a File object to query.
Set f1 = fso.GetFile("c:\detlog.txt")
' Print information.
Response.Write "File last modified: " & f1.DateLastModified