Discussion :

[beting]

Bonjour

J'ai un lecteur ZIP USB, et je souhaiterai l'ouvrir via une commande. Pour un lecteur CD sa fonctionne mais pour ZIP ?

Merci

[beting]

Pas d'idée

[ridan]

Salut,

Peut-être :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Shell "explorer H:\", vbNormalFocus

Remplace le H par la lettre de ton lecteur Zip

: :

[SfJ5Rpw8]

euu ... quand tu dit ouvrir c'est bien ejecté la disquette ??

[beting]

OUI patron mais le script ne permet que d'explorer

[beting]

j'ai trouvé sa mé il n'y a aucune action qui se passe si quelqu'un a une idée?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Option Explicit
 
' With this sub you eject removable media that support it, like Zip-drives
'  and CDs.
'
' Call:
'   EjectMedia "D:"
' where D: is, of course, the letter of the drive to eject.
'
' Note: I've heard that it does not work under NT unless you logged on as
'  administrator.
'
' EjectMedia -- Gathered by Voronwë <voronwe@come.to>
' I dug up this code from the VISBAS-L archives <http://eva.dc.lsoft.com/archives/visbas-l.html>
' Courtesy Fred Vagner (FredVagner@geocities.com) for most of the code
 
Private Type Registers
  RegBX As Long
  RegDX As Long
  RegCX As Long
  RegAX As Long
  RegDI As Long
  RegSI As Long
  RegFlags As Long
End Type
 
Type SECURITY_ATTRIBUTES
        nLength As Long
        lpSecurityDescriptor As Long
        bInheritHandle As Boolean
End Type
 
Public Const FILE_FLAG_DELETE_ON_CLOSE = &H4000000
Private Const VWin32_DIOC_DOS_IOCTL = 1
 
Private Declare Function DeviceIoControl Lib "kernel32" (ByVal hDevice As Long, ByVal dwIoControlCode As Long, lpInBuffer As Any, ByVal nInBufferSize As Long, lpOutBuffer As Any, ByVal nOutBufferSize As Long, lpBytesReturned As Long, ByVal lpOverlapped As Long) As Long
Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
 
Public Sub EjectMedia(Drive As String)
Dim SecAttr As SECURITY_ATTRIBUTES
Dim ErrorResult
Dim hDevice As Long, Regs As Registers, RB As Long
 
  hDevice = CreateFile("\\.\vwin32", 0, 0, SecAttr, 0, FILE_FLAG_DELETE_ON_CLOSE, 0)
  If hDevice = -1 Then
    ErrorResult = -1
    Exit Sub
  End If
  With Regs
    .RegAX = &H220D
    .RegBX = Asc(Left(Drive, 1)) - 64
    .RegCX = &H849
  End With
  ErrorResult = DeviceIoControl(hDevice, VWin32_DIOC_DOS_IOCTL, Regs, Len(Regs), Regs, Len(Regs), RB, 0)
  ErrorResult = CloseHandle(hDevice)
End Sub