Posts by abu taher

The RmDir command can delete a directory only if it doesn't contain files or sub-directories. If the directory you want to delete does contain other files or, worse, subdirectories it seems that you are forced to use a recursive routine that does the job.

A simpler solution is offered by the DeleteFolder method of the FileSystemObject object, exposed by the Microsoft Scripting Runtime library:

' NOTE: this code requires that you add a reference to the
'       Microsoft Scripting Runtime type library

' delete the C:\TEMP directory and all its sub-directories
Dim fso As New Scripting.FileSystemObject
fso.DeleteFolder "c:\temp"

You can also pass a second argument and set it to True if you want to force the deletion of read-only files:

fso.DeleteFolder "c:\temp", True

if this solve your problem then please mark it as solved.

I give you a very simple way. at 1st click on project menu_Add Data Environment. Double click on Data Environment1. click right mouse on connection1 & then click properties. In Provider tab click on Microsoft Jet 4.0 OLE DB Provider. Click next. select the database. you can test connection in below. click ok.
click right mouse on connection1 & click add command. again click right mouse on command1. go properties. in database object_select table. In object name_ select table name. click ok.
2. click on project menu_Add Data Report. select the data report. go properties. In Data source select Data Environment1. In Data member select Command1.
3. put a text box (Rpt textbox, in Data report) in detail (Section1) in data report. select the text box. go properties. in data member select command1. in data field_select any.
4. in form1 put a command button and then write

Private Sub Command1_Click()
DataReport1.Show
End Sub

you can get many sample in search engine. try ...

ya I test it and it work well. I don't understand what you want to say................and why you give me -1 !!!

in every drive in my pc I see a virus named "confikar worm virus" with a auto run file. I use avira anti virus (free edition).
but avira not kill it. but kaspersky can kill it. I have no kaspersky. can any body give me any suggestion how I kill it with any free edition.

you can write this

If Format(Now, "mm/dd/YYYY") >= 29/9/2011 Then
    Msgbox "the software has been expired"
End if
unload me

sorry for that, no man do this for you. every body can support you but all thing you have to do. if you really want it then I think you will pay for this...................

check it and go ahead.

it depend on your choice. you can do it by your own country copyrighted law (only for your own country) :)

you can get help from any search engine. a lot of sample project wait for you.......lol

I don't understand what you want? You want to create a button or show a button? so more details.................

lot of ............avira, avast, macfee.............all of them are supplied free version.

There are lot of sample code in internet. try to search it by any search engine.............

need more information. so please share it.

I didn't see your code. see the attach file. I think it will help you.

I think not like that. your description is not clear to me. when the problem occur? after enter os or before enter the os?

nobody can give you the sample. better way, you will get lot of sample in internet. so try to search with right key word with any search engine. like google, ask or other.

you have to set parameter in DataEnvironment for txtStdSSN.

you need to apply a new thread.

search engine can help you. you get lot of answer of your question.

I think its impossible. you can take a diffrent way like shortcut folder or send to folder. or other way.

I can enable or disable task manager manually. like: start> run > gpedit.msc
from group policy setting > user configuration > administrative templetes> system>
ctrl+alt+del. I want to do it in vb6. If click a button then it disable or enable. Is it
possible to do? If yes then how?

this is a sample project. I think it can help you.

check this it can help you.

its not clear to me

1st you start. you can take help from search engine. download code and try it.

Sometimes they get corrupted even though they look ok. I ran into something like this, but it wouldnt compile only crash during compile. So I created a new .vbp by creating a
new project, then adding all the references, forms, modules, and classes. Then I saved it as the original file name (all this in a different folder, copy all the forms,etc to this new folder). Tested and it worked. Maybe this will work for you too?

did you scan your pc with anti virus? some time virus can do this. some time After attach a keyboard, a mouse or another USB-based input device to your computer, your computer may no longer shut down correctly. For example, your computer may stop responding (hang) after you click Turn off or Restart. if this then try:
To work around this issue, disable power management of the USB hub.

Note If you perform the following procedure, your computer will be able to shut down correctly. However, this procedure may also reduce the battery life on a portable computer.

To disable power management on the USB hub:

1. Right-click My Computer, click Properties, click the Hardware tab, and then click Device Manager.
2. Double-click Universal Serial Bus controllers to expand it, right-click USB Root Hub, and then click Properties.
3. Click the Power Management tab.
4. Click to clear the Allow the computer to turn off this device to save power check box, and then click OK.
you may also see thishttp://www.aumha.org/win5/a/shtdwnxp.php

if you mean: to show the current time of computer then please try this

text1.text = now ' show time & date
Text1.Text = Format(date, "dd/mm/yyyy") ' show date

if you mean: how to create a exe file or setup file, then just follow this way.
for exe:
from file menu > make a project exe
for setup file:
all programs> Microsoft visual basic > Microsoft visual basic tools > package & development wizard
from here 1st you locate the project and then go ahead step by step.

where A is the tax code e.g 16%

this line is not clear to me. so need more information. did you declare any variable for A? or do you want to calculate 16%?

You can use different texbox to do this.

Dear friend, we really need you company.

welcome welcome and most welcome

you didn't tell us how you got it. so please and then mark it solve.

i have tried it in another computer and the hard disk is not being detected.

if its happened normally you can say the harddisk dead. so 1st you need to confirm it.

did you check your hardware like. agp, ram . I think you need to check all hardware separately.

you can check it. I think it can help you.

I am not sure. you can check with anti virus. if you go back with system restore i think its help you.

I didn't see all code of your. so, to delete a row, you could just use :
Code:

MSHFlexGrid1.RemoveItem(RowIndex)

But, How much unwanted data are you talking about ¿
If it's a lot of unwanted rows, surely it will be quite a tedious task in deleting one row at a time.

it discussed before. like
http://www.daniweb.com/forums/thread135921.html
http://www.daniweb.com/forums/thread140342.html
http://www.daniweb.com/forums/thread100213.html

I faced same problem before. I checked all parts separately. at last I changed my motherboard. and solved problem.

if you make setup file then you no need to register it.

wrong forum you submit. however you can make a query.

An invalid variable is being referenced. To create an object variable, declare the object variable and then assign a valid reference to the object variable using the Set statement. Similarly, a With...End With block must be initialized by executing the With statement entry point.

1.Make sure the object variable references a valid object, and specify or respecify a reference for the object.
2.Make sure you did not use an object variable set to Nothing.
3.Make sure the object library in which the object has been described has been selected in the Add References dialog box.
4.Make sure your With block is initialized by executing the With statement entry point.

First above all i would like to know which antivirus are you using. Because the restart problem is always due to a virus. Hence I can guarantee you that there wont be any virus in your system. And check the device manager whether all the drivers are installed properly , If not, then just install the driver. If the device doesn't work still , Install the Virtualbox software and use the device under it.

another thing, Just go to the power management and try to set everything to always on. If you are very much concerned find the settings to hibernation and turn it off.

check this. it can help you more.

same thread stated before. so try to find out it.

check this. I think it will help you.
http://support.microsoft.com/kb/316475

So, you may write to me to my email address> mansoor_aslam@hotmail.it <

don't use private email. its not fair. by the way, when enter data by code and you write code for enter its automatically update data. like:
With rs
.CursorLocation = adUseClient
.Open "SELECT * FROM table1", cn, adOpenStatic, adLockOptimistic ' cn is connection

.AddNew

!name = text1.Text
.Update ' update data
End With

so try it with your code what you use.