Posts by choudhuryshouvi

Post your project planning, even DFD(if possible). Your project will become a heavy one. For this a lot of planning is required.

'using connection object

'in general section
dim conn as adodb.connection
dim rs as adodb.recordset

'in form load
set conn=new adodb.connection
set rs=new adodb.recordset

conn="provider=microsoft jet.4.0.oledb;data source=<ur database name>;persist security info=false"
conn.open
rs.open "select *from ur tablename",conn,adopendynamic,adlockoptimistic

Which country are you referring to ? We don't get this as default in any version of windows, except maybe Windows 3.0

Please fill me in.

Denis

Belonging to some other country than you are won't change windows default printer from "Epson Ex-1000" to something else. It is the universal settings from Microosft which a few people know. You can only use this printer setting to make the print preview option functional while working in some text editors,word processors like notepad,wordpad,Ms-Word,etc. but cannot print anything. Windows doesnot automatically detect and install this printer. To install this printer setting you have to install all associated files from the installation disk of the version of windows which you've installed. To install this printer you can follow these steps :-

Insert the windows installation disk->goto control panel->printer->add new printer->select appropriate port->then from the printer selection screen click Epson from manufactures list and then select Epson Ex-1000 from printers list. After this clicking OK will install all necessary files for this printer onto your computer. Now if you goto print preview option of any text editor such as notepad you can see that option is working. I assume that you should know without installing a printer you cannot use the print preview option within any text editors. This printer setting is recommended for users who donot physically have any printer installed with their machine.

Hope this will clear your idea.

Regards
Shouvik

Runtime error 5 doesn't mean to any syntax or compile errors within your app. It causes due to some logical errors within your program. It happens whenever you try to move focus to any control in runtime which is currently disabled. Like you have two textboxes in a form, among them one's enable property is set to false and you are trying to move focus to this textbox. In this context you cannot move focus to this control and vb6 will fetch this runtime error. It also happens if you try to move the focus to such a control other than the control whose tabindex property has been set to 0 in form_load event.

To overcome this problem just check within your coding whether you are trying to move focus to any disabled control or to such a control whose tabindex property is not set to 0.

On the other hand, if you want to run your app in some other computer always create the setup package using vb6's package & deployment wizard. You can also try to run your app without creating any install package by just copying the .exe file and all associated files to respective folders on the target machine. In this case you must have vb6 runtime files installed in the user's computer. But it is always recommended that you create a setup.exe package using package and deployment wizard.

Regards,
Shouvik

Look, "Epson Ex-1000" is the default printer for windows in all versions. It is the printer which anybody can use even if they don't physically have any printer installed to see the print preview. Now if you wish to change this printer setting to something else you've to first tell windows to what printer you want to switch on. You can write code to extract all printer names which are currently installed in a combo box. After that you select a printer and change to it. In this case you don't need to display the printer dialog box.

Installing runtime files will not solve your problem in some circumstances. Such is that probably you have used a third party activex control that is not installed in the system directory(In case of XP it is System32)of your operating system or such a control which is newer than what is your operating system presently has. Copy and paste the activex control(which is not installed)to the System32 folder. You'll find this folder under windows directory in the root drive of your os. After this click start->run and pass the following command :-

regsvr32 %systemroot%\system32\<your activex control name.ocx>

Hit enter. This will register the activex control in your XP os. After this your os will be able to create object of the said control. If possible just logoff and then login to the machine. Run the project by clicking .exe file. Your program will be run this time without having any problem.

Hi Kshrini,

One way you can apply to solve your problem. You can design your application in such a way that it should check the resolution that has been currently set in user's computer. If it is 1024*768 then you allow the user to run the application otherwise you can display a notification msg to the user and change the resolution back to 1024*768. Yes, it is possible to change the resolution to 1024*768 through code. If you wish I can send you the code. Just send a mail to me at the following address :- choudhuryshouvik@yahoo.com

Thanks for your effort. Thanks once again...

Might this code serves your purpose

'used stuffs :- textbox(txtname), two buttons(cmdadd,cmdselectname),list box(list1), database(info), table(info), field("name")

Option Explicit
Dim db As Database, rs As Recordset

'adding a new name to the database based on value supplied into the textbox
Private Sub cmdadd_Click()
If Trim(txtname.Text) <> "" Then
rs.AddNew
If rs.EditMode = dbEditAdd Then
rs("name") = Trim(txtname.Text)
rs.Update
MsgBox "Name added to the database."
txtname.Text = ""
txtname.SetFocus
End If
Else
MsgBox "Plz input some text before trying to add it to the database."
txtname.SetFocus
Exit Sub
End If
End Sub

'extracting all names from the database into a listbox and selecting a random name from it
Private Sub cmdselectname_Click()
Dim rname As Integer

Set rs = db.OpenRecordset("info")
If rs.RecordCount > 0 Then
rs.MoveFirst
List1.Clear
Do Until rs.EOF()
List1.AddItem rs("name")
rs.MoveNext
Loop
Randomize
rname = Int(Rnd() * List1.ListCount)
List1.ListIndex = rname
MsgBox "The following name has been randomly selected from the database :-" & vbCrLf & vbCrLf & "Name : " & List1.Text
Else
MsgBox "No names found in the database." & vbCrLf & "Plz add some names first."
End If
End Sub

Private Sub Form_Load()
Set db = OpenDatabase(App.Path & "\info.mdb")
Set rs = db.OpenRecordset("info", dbOpenTable)
If rs.RecordCount > 0 Then rs.MoveFirst
List1.Visible = False
…

Try this code...
'used stuffs :- button(command1), list box(list1) , database,table and fields name remain same
Option Explicit

Dim connection As ADODB.connection
Dim recordset As ADODB.recordset
Dim CITYARRAY(5) As String, QUERY As String

Private Sub Command1_Click()
Dim i, f, nf As Integer

f = 0 'variable for tracking total no. of cities found in the database
nf = 0 'variable for tracking total no. of cities not found in the database

CITYARRAY(0) = "MIAMI"
CITYARRAY(1) = "FRED"
CITYARRAY(2) = "INDIAN HILL"
CITYARRAY(3) = "MARTINSVILLE"
CITYARRAY(4) = "MARY"

'looping through each element of the array,sending its value through the query and checking whether this value does exist in the database or not.
'if match found then increasing the f variable by 1 & printing msg in the listbox otherwise increasing the nf variable by 1 & also displaying a msg in the
'listbox
For i = 0 To 4 Step 1
QUERY = "select city from uscity where city in(" & Chr(34) & CITYARRAY(i) & Chr(34) & ")"
recordset.Open QUERY, connection, adOpenDynamic, adLockOptimistic

If recordset.RecordCount > 0 Then
List1.AddItem CITYARRAY(i) & " [ Found in the database ]"
f = f + 1
Else
List1.AddItem CITYARRAY(i) & " [ Not Found in the database ]"
nf = nf + 1
End If
recordset.Close
Next i

'printing summary of the above query

Hi, all

How can I make a text box such that it accepts numbers only? Does anybody know how can I achieve that? It would be helpful if somebody post some example programs or some links to such websites where I can get some resources regarding this thread.

Thanks to all in advance.....

will you be mind to clear in what are you want to do?

you cannot use dbgrid without datacontrol because to make dbgrid contain all records from the table you need to first connect the dbgrid with the database and that you cannot do without a control in case of dbgrid.in this case you may face a problem when the database which was set in the control's properties not found in the speicfied location in the system.to overcome this problem you can use this code to dynamically connect the dbgrid with the your database.

data1.databasename=app.path & "\yourdbname.mdb"
data1.recordsource="yourtablename"
data1.refresh

use the above code after doing the following things:-
1.take a dbgrid and a datacontrol
2.set the databasepath and recordsource in datacontrol's properties
3.now set datasource in dbgrid's properties to the name of the datacontrol
4.rightclick dbgrid->select retrieve fields
5.now open datacontrol's properties and delete the values from both databasename and recordsource properties
6.now open code editor and paste the above code in a suitable event

'hope this code snippet can serve your purpose

Dim n(4), s As String, i As Integer

'populating the string array
For i = 0 To 4 Step 1
begin:
s = InputBox("Demo of populating an array by accepting name of 5 students." & Chr(10) & "Enter name of student" & i + 1 & " :", "Populating Array")
If s <> "" Then
n(i) = s
Else
MsgBox "No student has null in name."
GoTo begin
End If
Next i

'creating and writing array values into file
Open App.Path & "\name.txt" For Output As #1
For i = 0 To 4 Step 1
Print #1, "Information About Student"
Print #1, "---------------------------------"
Print #1, "Name : " & n(i)
Print #1, "Position in array : " & i
Print #1, "Holding rank : " & i + 1
Print #1, "---------------------------------"
Print #1, ""
Next i
Close #1

you cannot make a mdiform borderless. instead of you can disable the close button on the titlebar of the mdiform. to disable the close button use this code :-

'declare these api functions in general section of the mdiform
Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, _
ByVal nPosition As Long, ByVal wFlags As Long) As Long

Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, _
ByVal bRevert As Long) As Long

Private Const MF_BYPOSITION = &H400&
Private ReadyToClose As Boolean

'create a sub-routine like this
Private Sub RemoveMenus(frm As Form, remove_close As Boolean)
Dim hMenu As Long
hMenu = GetSystemMenu(hwnd, False)
If remove_close Then DeleteMenu hMenu, 6, MF_BYPOSITION
End Sub

'in load event add this
Private Sub MDIForm_Load()
RemoveMenus Me, True
End Sub

'within your exit option add this
ReadyToClose = True
End

'take a picturebox,make its sizemode property to 'autosize'. rename the picturebox to 'pic1'. take an openfile dialog control and rename it to 'opfile'

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
opfile.Title = "Select JPG File"
opfile.InitialDirectory = "C:\"
opfile.Filter = "JPG Files|*.jpg"
opfile.ShowDialog()
If opfile.FileName <> "" Then
pic1.Image = Image.FromFile(opfile.FileName)
Me.Height = pic1.Height
Me.Width = pic1.Width
Button1.Top = pic1.Top + 10
Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
End If
End Sub

'use this one.
'used stuffs : database(login.mdb); table(admin; fields : username,password)

Option Explicit
Dim db As Database, rs As Recordset

Private Sub cmdlogin_Click()
Dim stat As String

If Trim(txtusername.Text) <> "" And Trim(txtpassword.Text) <> "" Then
Set rs = db.OpenRecordset("admin", dbOpenTable)
If rs.RecordCount > 0 Then rs.MoveFirst
Do Until rs.EOF()
If rs("username") = Trim(txtusername.Text) And rs("password") = Trim(txtpassword.Text) Then
stat = "found"
Exit Do
Else
rs.MoveNext
stat = "not found"
End If
Loop
If stat = "found" Then
Unload Me
Form2.Show
ElseIf stat = "not found" Then
MsgBox "The username and password you provided" & vbCrLf & "are not found in the database.", vbApplicationModal + vbExclamation, _
"Invalid LogIn Data"
txtusername.Text = ""
txtpassword.Text = ""
txtusername.SetFocus
End If
Else
MsgBox "Required login parameters are missing.", vbApplicationModal + vbExclamation, "Incomplete Information"
txtusername.SetFocus
End If
End Sub

Private Sub Form_Load()
Set db = OpenDatabase(App.Path & "\login.mdb")
Set rs = db.OpenRecordset("admin", dbOpenTable)
If rs.RecordCount > 0 Then
rs.MoveFirst
ElseIf rs.RecordCount = 0 Then
MsgBox "No login data found." & vbCrLf & "Service currently unavailable.", vbApplicationModal + vbExclamation, "LogIn"
End
End If
End Sub

in the module paste the following code :-(the bolded parts only)

sub to load the form specified by you
Private Sub loadForm(frm As Form)
Load frm
frm.Show
End Sub

this is the main function that a module should have while you are trying to execute it from your project as a startup object

Sub main()
Call loadForm(Form1)
End Sub

where form1 is the name of the form you wish to load. after finishing the coding goto project->project properties->set sub main() from startup object->click ok->run the project

you can make animation using any objects even with the form also. here is an example animating a label control. during running of the program the label should blink. here is the code :-

private sub timer1_timer()
if label1.visible=true then
label1.visible=false
elseif label1.visible=false then
label1.visible=true
end if
end sub

private sub form1_load()
timer1.interval=200
timer1_timer
end sub

'used stuffs : textbox(txtname); command button(command1)

Option Explicit
Dim db As Database, rs As Recordset

Private Sub Command1_Click()
If Trim(txtname.Text) <> "" Then
    Set rs = db.OpenRecordset("select *from fail where nama_fail=" & Chr(34) & Trim(txtname.Text) & Chr(34))
    If rs.RecordCount > 0 Then
        MsgBox "The name is found."
    ElseIf rs.RecordCount = 0 Then
        MsgBox "The name is not found in the collection."
    End If
    SendKeys "{Home}+{End}"
    txtname.SetFocus
    Set rs = Nothing
Else
    MsgBox "Please enter name first to begin searching."
    txtname.SetFocus
End If
End Sub

Private Sub Form_Load()
Set db = OpenDatabase(App.Path & "\fail.mdb")
Set rs = db.OpenRecordset("fail", dbOpenTable)
If rs.RecordCount > 0 Then rs.MoveFirst
End Sub

I'm developing a mediaplayer.There is a listbox acting as filename container. Now I want to select multiple files from openfile commondialog and add those selected files to the listbox. How can I do this?Plz help me to figure this out.

thanks to all but I've already coded it and its simply working great.

Hi all,

I've a code in vb.net 2003 which prompts user while he/she tries to close the form by clicking the form's close button('X'). If answer is yes the form closes but if the answer is no it stays. Now I want to write the similar code in a C# form also. I've already coded it. It's also working but the problem is when I'm trying to not to close the form by clicking on the 'NO' button in the messagebox the form still closes itself. Here is the code fragment what I wrote :-

private void Form1_Closing(object sender, System.ComponentModel.CancelEventArgs e)
        {
            int confirm;

            confirm=System.Convert.ToInt32(MessageBox.Show("Sure to exit ?","Confirm Exit",MessageBoxButtons.YesNo,MessageBoxIcon.Question));
            if(confirm==6)
            {
                Application.Exit();
            }
            [B]else
            if(confirm==7)
            {
                //e.Cancel;
                return;
            }[/B]
        }

The bolded part is where I'm getting the problem. Plz help me to figure this out. I'm a beginner in C#. So, if anybody can help me plz do so. Thanks in advance...

rather than doing the same coding u can do this:-
take a .bas module(project->add module->open) and create two procedures there;one is for saving and another is for loading like this -

in the .bas module
for saving purpose
public sub savedbpath(dbpath as string)
savesetting "project","apps","mydb",trim(dbpath)
end sub
where dbpath is the complete path of the database u want to save

for loading purpose
public function loaddb() as string
loaddb=getsetting("project","apps","mydb")
end function

now in a form where u want to call just do this -

for saving
call savedbpath(app.path & "\Database\PBC_DB.mdb")

for loading
dim dbname as string
dbname=loaddb()
if trim(dbname)="" then
exit sub
else
if dir(dbname)<>"" then
'dbpath valid
else
'dbpath not valid
endif
endif

'used stuffs :- list1 and its two arrays(0,1)

'displaying name along with its index of the selected control
Private Sub List1_Click(Index As Integer)
MsgBox List1(Index).Name & "(" & Index & ")"
End Sub

'dynamically adding items to all listboxes present on the current form
Private Sub Form_Load()
Dim ctlControl As Object
    On Error Resume Next
    For Each ctlControl In Me.Controls
        If TypeOf ctlControl Is ListBox Then
        ctlControl.AddItem "computer"
        DoEvents
        End If
    Next ctlControl
End Sub

my dear, there is no inbuilt crystal report tool in vb6.0 coz its an external tools and u have to install this explicitly. search google for crystal report 8.5 or some latest versions and then put a mail to my email which is choudhuryshouvik@yahoo.com ,after that I'll send u the procedures.

forget what i said. use this one :-

'used stuffs :- database(admin.mdb); table(admin); fields(username,password)

Option Explicit

Private Sub cmdlogin_Click()
Dim confirm As Integer

If Trim(txtusername.Text) <> "" And Trim(txtpasswd.Text) <> "" Then
Data1.Refresh

Do Until Data1.Recordset.EOF()
If Data1.Recordset.Fields(0) = Trim(txtusername.Text) And _
Data1.Recordset.Fields(1) = Trim(txtpasswd.Text) Then
Form2.Show
Unload Me
Exit Sub
Else
Data1.Recordset.MoveNext
End If
Loop

confirm = MsgBox("Invalid username and password." & vbCrLf & "Do you want to make another try?", vbQuestion + vbOKCancel, "Admin Error")
If confirm = vbOK Then
txtusername.Text = ""
txtpasswd.Text = ""
txtusername.SetFocus
Else
End
End If
Else
MsgBox "Plz enter admin details first.", vbExclamation, "Sorry!!!"
txtusername.SetFocus
End If
End Sub

Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\admin.mdb"
Data1.RecordSource = "admin"
Data1.Refresh
End Sub

here is my email address :-

<<snip>>

There are four types of login u can code in a vb program. They are :-
1.from table stored in a database
2.from user-defined file
3.from windows registry
4.by fixing some constant value within ur program

If u want to know any of the above send a mail to my email address :-
choudhuryshouvik@gmail.com

Hi all,
Atlast I've rewritten the above code in vb.net 2003 and its working great.

Thanks once again...

Hi, there, all fellow programmers I need a help on this. I have a code in vb6. It acts when a click action is made on 'X' on form1. Here is the code :-

private sub form1_unload(cancel as integer)
dim confirm as integer

confirm=msgbox("Sure to exit ?",vbyesno+vbquestion,"Confirm Exit")
if confirm=vbyes then
end
elseif confirm=vbno then
cancel=vbno
exit sub
endif
end sub

The above code works fine in vb6 environment. Now I need to write similar code in vb.net 2003 also. Does anybody have any idea how to do this? Plz this is urgent. Reply me as soon as possible

hello swatirao,
from where did u download crystal report 8.5? plz let me know. i've been searching for it since a very long time. plz reply soon.

'take a textbox(txtno) and a commandbutton(command1)

Private Sub Command1_Click()
Dim no, s, t, t1, i As Integer

no = Val(Trim(txtno.Text))
t = 1
t1 = 1
s = 0
i = 1

lstseries.Clear
lstseries.AddItem t
lstseries.AddItem t1

Do Until i > no - 2
s = t + t1
t = t1
t1 = s
lstseries.AddItem s
i = i + 1
Loop
End Sub

perform these steps:-

1.open vb6 and create a new project
2.save the project
3.tools->visual data manager
4.file->new->microsoft access database->version 7.0 mdb
5.select the folder where u saved ur project
6.enter new db name and click create
7.right click on database window->new table
8.enter new table name->click add field
9.enter a field name and mention its type
10.click ok->close
11.click build the table
12.double click on the table name to open it
13.click add
14.enter some data
15.close vis-data
16.in the form take a textbox and a data control
17.select datacontrol and press f4
18.select databasename and locate ur access db
19.scroll down and select recordsource and select the table from list
20.open properties of the textbox
21.select datasource and make it to the datacontrol's name
22.select datafield and select the field u created in the table
23.save ur work and press f5
24.use navigation buttons of datacontrol to browse between the records

first u need to configure the data1 control.do these :-

1.open data1 properties.
2.click ... button next to the property database name.
3.locate and select ur access database.
4.scroll down and select recordsource property.
5.select the table from the dropdown list with which u want to link ur vb program.
6.create controls such as textbox on the form on which u want to show data from corresponding fields of the table.
7.select a control and open its properties.
8.select datasource and make it to data1 or whatever ur control name is.
9.select datafield and select the field whose value u want to show in that particular control.
10.run the program and use the navigation buttons on the data control. ur program should now work.

you use getsetting function to read the value from registry and then check whether a database with the specified value does exist or not. depending on the result u can execute actions. u need to store the database name along with its fullpath. use this code :-

'to store the dbname with path in registry
savesetting "project","apps","mydb",app.path & "\Database\PBC_DB.mdb"

'in form_load
dim dbname as string

dbname=getsetting("project","apps","mydb")
if trim(dbname)="" then
exit sub
else
if dir(dbname)<>"" then
'database found.perform some actions
else
'database not found.do some actions
endif
endif

u can show the blinking label in a separate form. when users match the squares disable current form(me.enable=false) and then display the form with blinking label in vbmodal mode(form2.show vbmodal).after the specified time of blinking disable the timer(timer1.interval=0),close the form(unload me) and enable the game form(form1.enable=true).

check this out :-

conn.ConnectionString = app.path & "\CheckInfo.mdb"

make sure the .mdb file does exist in the same folder as ur project files.

u need to first open the database and assign its table's contents to a recordset object. all these u have to do in form_load event. try this code snippet :-

'in general section
dim db as database,rs as recordset

'in form_load event
set db=opendatabase(app.path & "\yourdbname.mdb")
set rs=db.openrecordset("yourtablename",dbopentable)
if rs.recordcount>0 then rs.movefirst

'in listbox click event
set rs=db.openrecordset("select roll from yourtablename where name='" & list1.text & "'",dbopendybaset)
if rs.recordcount>0 then
text1.text=rs("roll")
endif
set rs=nothing

In vb6 form_unload event there is a system defined event limited variable called 'cancel'. u need to assign this variable to 'no'. use this code snippet :-

private sub form_unload(cancel as integer)
dim box as integer

box=msgbox("Do you want to exit?",vbyesno,"Exit")
if box=vbyes then
unload me
set form2=nothing
end
elseif box=vbno then
cancel=vbno
form2.show
exit sub
endif
end sub

I need a help for adding icon for my file association to be visible not as unknown file format i the explorer............

TRY THE FOLLOWING CODE :-

' This module enables you to create file association to
' your program in the registry. Your own filetype will also
' have its own icon, created by you. Usefull when you have
' a program that uses it's own filetype. There are only three
' subs required to keep it simple.
'
' Opening the associated files with explorer will start the
' associated program and send the filename (and trailing prompts)
' to the command function in your program. To use the Command
' function, put it into the main module or the load-event of your
' program and tranfer it's string to your programcode.
' This feature is handy to start automaticly your program and
' open, load or procces the opened file. The syntax is very simple:
' MyString = Command ,where Mystring will contain the files name
' including all trailing prompts. You will have to write some code
' to let your program procces a file, passed through Command, or
' start your program without file if Command is empty.
'
' Finally, there's the function to check if a given association exist.
' This one comes in handy when you want to create a button to …

u can't use both stop entering null value into a field and allow it to keep empty together.instead of u can restrict the user not to enter any blank value to the field.in this case u'll need to check the field whether its current value is blank or not before trying to save it to the database.just fire a lostfocus event of the control in which u are entering the data to check whether the control has some data or not.if yes then save it to the database otherwise throw a msg to the user.

I've got a program similar to what u wanted.If u really want this send me a notification mail to me.My email id is :
choudhuryshouvik@gmail.com

INSTRUCTIONS ON CONFIGURATION:-

I donot have oracle installed on my computer. I did this on a sql server database. So before try to run this code u need to configure the controls and do some tasks. Here are the instructions. Just follow these steps :-

1.start oracle
2.create a table with name "information" having the following two fields :-
rollno int, name varchar(25)

3.open vb and create a new standard.exe project
4.take two labels,two textboxes,one button,one datagrid control and one adodc control
5.name the controls as follows :-
text1->txtroll
text2->txtname
commnad button->cmdadd
6.add captions to the labels as Rollno and Name respectively.
7.right click on adodc1->properties->on first page select use connection string->build->click provider tab and select microsoft oledb provider for oracle->next->enter username and passwd->click test connection(if it displays test connection succeded then ur connection has done)->click ok->goto authentication tab->enter username and passwd->goto recordsource tab->select 2-adcmdtable from commandtype->select the table "information" from the table dropdown list->click ok. After this ur adodc configuration will complete.
8.select datagrid control->press f4->select datasource properety and change it to adodc1 or whatever ur control name will be->right click on datagrid control6.0->select retrieve fields->click yes->right click again->select properties->enter a caption->goto columns tab->change captions of the fields to whatever u want to be displayed->click ok. After this ur datagrid …

not understood what u actually want.plz clearly state ur issue.

mention clearly what do u want actually?

i can send u the segmented coding in where u stucked.just send me a notification mail.my email id is :
[email]snipped[/email]

u can try the DIR function to check whether the file does exist or not.here is a sample :

if dir("c:\test.txt")<>"" then
msgbox "file found"
else
msgbox "file not found"
endif

Send me a mail.I'll send the code to u.Here is email id:
choudhuryshouvik@gmail.com

I've got a program similar to what u wanted.If u really want this send me a notification mail to me.My email id is :
choudhuryshouvik@gmail.com

Hi, I've sent the resources to ur mail.Check ur email id.