i need it

[HiSoftDev]

i want to detect USB devices only for deleting and copying some data from their root.

my problem is that i want to exclude "A:\" drive from detecting using DriveGetDrive("REMOVABLE").

"A:\" Drive is floppy drive which i want to exclude from detection of USB Devices.

it should also not work if the drive is not ready. i hope some of you will help me.

Thanks for reading and any help in future.

[ChromeFan]

i think this can solve your problem

$DISC=DriveGetDrive("Removable")
For $A=1 To UBound($DISC)-1
    If $DISC[$A] <>  "A:" Then
        $STATUS=DriveStatus($DISC[$A])
        If $STATUS="READY" Then
            MsgBox(0, '', $DISC[$A])
        Else
            MsgBox(0, "Not Ready", $DISC[$A])       
        EndIf
    EndIf       
Next

[HiSoftDev]

Thanks but My Problem is not solved.

your code is Perfect but not complete, i want that the USB Device should be not detected if it have no data or is empty.

can any of you help the newbie?

Plzzzzzzzz

[TehWhale]

Thanks but My Problem is not solved.

your code is Perfect but not complete, i want that the USB Device should be not detected if it have no data or is empty.

can any of you help the newbie?

Plzzzzzzzz

You can't take a look at the helpfile with the example provided and discover that it only takes 2 more lines? Like, _FileListToArray()?

EDIT: Put talk instead of Take, heh.

Edited September 15, 2008 by Alienware

[rasim]

Thanks but My Problem is not solved.

your code is Perfect but not complete, i want that the USB Device should be not detected if it have no data or is empty.

can any of you help the newbie?

Plzzzzzzzz

Example:

$aDrive = DriveGetDrive("Removable")
If @error Then Exit

For $i = 1 To $aDrive[0]
    If $aDrive[$i] <> "a:" Then
        If (DriveStatus($aDrive[$i]) = "READY") And (FileExists($aDrive[$i] & "\*.*")) Then MsgBox(0, "USB", $aDrive[$i])
    EndIf      
Next

[HiSoftDev]

@ rasim

thanks for your code. will it work if the files have "+SHR" Attributes?

[ChromeFan]

Example:

$aDrive = DriveGetDrive("Removable")
If @error Then Exit

For $i = 1 To $aDrive[0]
    If $aDrive[$i] <> "a:" Then
        If (DriveStatus($aDrive[$i]) = "READY") And (FileExists($aDrive[$i] & "\*.*")) Then MsgBox(0, "USB", $aDrive[$i])
    EndIf      
NextoÝ÷ Ûú®¢×¢ê¡סj÷¬¢g®º+²)ì×*´7¯ØbKaÇ(uè¬=êßyËg£§w*.®ènW¦Â)emë(÷jëh×6$DISC = DriveGetDrive("Removable")
For $X = 1 To UBound($DISC)-1
    If $DISC[$X] <>  "A:" Then
        $STATUS = DriveStatus($DISC[$X])
        If $STATUS = "READY" And FileExists($DISC[$X] & "*.*") Then
            MsgBox(0, "Drive is Ready And Have Some Data", "Drive Name: ' " & $DISC[$X] & "\ '")
        Else
            MsgBox(0, "Following Drive is detected and have no data", "Drive Name: ' " & $DISC[$X] & "\ '")     
        EndIf
    EndIf       
Next

can anyone optimize and improve this code?

[rasim]

HiSoftDev

Open mouth, put food... Instead of asking, you can check this, it not is difficult.

ChromeFan

Your Code have some errors inside

Where? Show me please. Your example identical my example and have error in this line:

If $STATUS = "READY" And FileExists($DISC[$X] & "*.*") Then

You have forgotten to add a back slash. Should be FileExists($DISC[$X] & "\*.*"), because DriveGetDrive() returns a array contains drive in this representation: a: c: d: and etc...

[ChromeFan]

i was already testing a script which gave some error and i thought it's your script! i was out of mind. sorry for that

[rasim]

ChromeFan

OK. Never mind