diver info(external or flash disk )

[mesale0077]

hi ,new flash disk put in the pc

Extrem Hard Disk or USB Recording inthe Computer

dont write info new flash disk

why ,

info flashdisk put inthe pc

ı want to make flash disk((external or flash disk) recordkeeping

but dont worked

code:

Dim $yazildi

$oldvar=DriveGetDrive("all")

HotKeySet( '{esc}', "Terminate")

opt("OnExitFunc", "Terminate")

#NoTrayIcon

$log = @ScriptDir &"/flash.txt"

$var = DriveGetDrive( "all" )

if $var <> $oldvar then

$degisim=1

else

$degisim=0

$oldvar=$var

endif

$ff=""

While 1

If NOT @error Then

if $degisim=1 Then

$yazildi=0

$degisim=0

endif

FileOpen($log, 1)

For $i = 1 to $var[0]

If NOT @error and $var[$i] > "f" and $ff="" and $yazildi=0 Then

FileWrite($log,$var[$i] &@MDAY & "." & @MON & "." & @YEAR& " " & @HOUR & ":" & @MIN & ":" & @SEC & " name: "&DriveGetLabel($var[$i] )&" Serial: " & DriveGetSerial($var[$i] ) &" total: "& Round ( DriveSpaceTotal($var[$i] ) )& @CRLF )

$gg=DriveGetLabel($var[0] )

$ff= $gg

EndIf

Next

$yazildi=1

EndIf

FileClose($log)

$ff=""

WEnd

Func Terminate()

FileClose($log)

Exit

EndFunc

new flash dont write why?

thank you for help

Edited September 5, 2009 by mesale0077

[rajeshontheweb]

sorry but if it is a little more explanatory , it would be helpful.

to start with, please use code tags, 1 this text entry wastes space, 2 its not very readable.

next, if i understand right, u want a code to log all new portable drives like hdd or flash drive to be logged, right?

in that case, check the codes available here to monitor disc change activity, 'usb drive monitoring'

expandcollapse popup

Dim $yazildi
$oldvar=DriveGetDrive("all")
HotKeySet( '{esc}', "Terminate")
opt("OnExitFunc", "Terminate")
#NoTrayIcon
$log = @ScriptDir &"/flash.txt"
$var = DriveGetDrive( "all" )
if $var <> $oldvar then
$degisim=1
else
$degisim=0
$oldvar=$var
endif
$ff=""
While 1
If NOT @error Then
if $degisim=1 Then
$yazildi=0
$degisim=0
endif
FileOpen($log, 1)
For $i = 1 to $var[0]
If NOT @error and $var[$i] > "f" and $ff="" and $yazildi=0 Then
FileWrite($log,$var[$i] &@MDAY & "." & @MON & "." & @YEAR& " " & @HOUR & ":" & @MIN & ":" & @SEC & " name: "&DriveGetLabel($var[$i] )&" Serial: " & DriveGetSerial($var[$i] ) &" total: "& Round ( DriveSpaceTotal($var[$i] ) )& @CRLF )
$gg=DriveGetLabel($var[0] )
$ff= $gg

EndIf
Next
$yazildi=1
EndIf

FileClose($log)
$ff=""
WEnd
Func Terminate()
FileClose($log)
Exit
EndFunc

Edited September 6, 2009 by rajeshontheweb

[mesale0077]

hi

the memory card to make a list is inserted the pc

external memory and flash memory I want to make a list is inserted the pc

or list of installed memory(external memory and flash memory list)

thank you for help

Edited September 9, 2009 by mesale0077

[mesale0077]

hi

this code? whats the problem

why dont work?

thank you for help

[mesale0077]

hi

this code ,dont work,why?