Консультация № 69783
06.01.2007, 20:15
0.00 руб.
0 1 1
Здравствуйте уважаемые Эксперты, для моей программы требуется алгоритм, который определяет и присваивает к переменной типа string имя диска, в который вставлен флеш накопитель (на котором собственно и будет находиться моя прога. Зарание спасибо!

Обсуждение

давно
Профессионал
848
1596
07.01.2007, 12:11
общий
это ответ
Здравствуйте, Чалагаев И.Г!
На форму 2 кнопки, код для них в приложении.
В первой кнопке(варианте) показан цикл, который перебирает все диски в поиске "Сменного" типа диска, очевидно так называется флэшка;-)
Я немного не понял в вопросе, т.е. если ваша прога находится на флэшке и запускается именно с неё - как определить диск(в данном случае диск флэшки)??? То это еще проще - второй вариант как раз под эту ситуацию(определяется имя диска с которого запущена прога).

Приложение:
Private Declare Function GetDriveType& Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String)Private Sub Command1_Click()Dim lDrv As LongDim lTypeDrv As LongDim sMyDrive As StringFor lDrv = 65 To 90 ‘A to Z ‘ DRIVE_REMOVABLE = 2 ‘ DRIVE_FIXED = 3 ‘ DRIVE_REMOTE = 4 ‘ DRIVE_CDROM = 5 ‘ DRIVE_RAMDISK = 6. lTypeDrv = GetDriveType(Chr(lDrv) + ":") If lTypeDrv = 2 Then sMyDrive = Chr(lDrv) MsgBox "Flash" End IfNext lDrvEnd SubPrivate Sub Command2_Click()Dim sMyDrive As StringsMyDrive = Left(App.Path, 1)MsgBox sMyDriveEnd Sub
Форма ответа