deteksi drive flash disk

[sonifox]

saya menginginkan begitu flash disk di pasang, fox pro bisa mendeteksi di drive mana flash disk terpasang
jadi saya bisa mengcopy  file dengan perintah copy file jual.dbf to xx:\jual.dbf

saya coba pakai program dibawah ini dan berhasil, tapi waktu dijalankan pertama kali muncul daftar file dan kita harus mengklik dulu salah satu file tsb. Bagaimana caranya spy kita tak perlu mengklik file tsb
Bagi para master foxpro mohon bantuannya, sebelumnya saya ucapkan banyak terima kasih

[aris_ah]

saya coba pakai program dibawah ini dan berhasil, tapi waktu dijalankan pertama kali muncul daftar file dan kita harus mengklik dulu salah satu file tsb. Bagaimana caranya spy kita tak perlu mengklik file tsb

bawahnya sebelah manah ya.. kok ga ada.....   

[sonifox]

sori kelupaan. ini saya lampirkan code prgnya. awal di run kita harus memilih file mana dulu. sptnya ada variabel yg harus didefinisikan dulu. tolong spy dibikin tak usah mengklik dulu tapi file yang dipilih bisa ditulis dlm program jd user tinggal memilihnya saja langsung proses.

(click to show/hide)

Code: [Select]

#Define Unknown 0
#Define No_root_directory 1
#Define Removable_Disk 2
#Define Local_Disk 3
#Define Network_drive 4
#Define Compact_Disc 5
#Define RAM_Disk 6
DECLARE INTEGER GetLogicalDrives IN kernel32
DECLARE INTEGER GetDriveType IN kernel32 STRING nDrive
 
LOCAL nDrivesMask, nIndex, nShift, cDrive
nDrivesMask = GetLogicalDrives()
 
? "Available Flopy Disk is:"
 
nIndex = 0
DO WHILE .T.
    nShift = BitLShift(1, nIndex)
    cDrive = Chr(nIndex + 65) + ":"
 
    IF BitAnd(nDrivesMask, nShift) = nShift AND ;
    GetDriveType(cDrive) = Removable_Disk
        ? cDrive, ' Removable_Disk'
    ENDIF
 
    IF nShift > nDrivesMask
        EXIT
    ENDIF
 
    nIndex = nIndex + 1
ENDDO

 
Origninal Code from
http://www.news2news.com/vfp/?example=13&function=17&PHPSESSID=b8fa39a6e914e7b9080da55a01868bb

[need_help]

saya pernah membuatnya...
semoga bisa membantu.

jika ada eror windows - no disk klik cancel aja karena tidak ada flopy disk di kompi

[armen]

@sonifox,

Saya kira anda bikin pooling apa?

Kalau Autodetec yang diinginakan, harus gunakan BindEventPnPDrive pakai WIN API32, Lebih rumit dari sample yang anda post diatas.
Mau ?

[sonifox]

mas Armen boleh saja saya diberi codingnya tapi yang jelas ya soalnya saya baru belajar foxpro jadi belum paham yang pakai begituan, jadi saya tinggal copy saja trus saja jalankan langsung oke. Maunya yang gampang aja ha...ha... thx buat mas Armen