Kod ile sürücü açılması yardım...

[Gorarr]

Selamlar, bir konuda yardımınıza ihtiyacım var. Tıpkı windowsda açıldığı gibi, VBA 6.0 ile varolan C:\ partitionu açılmasını sağlayan kodu yazmama yardım edermisiniz. Şimdiden teşekkürler...

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Shell "Explorer.exe C:\", vbMaximizedFocus

 

[halit3]

Alternatif olarak diğer sürücülerin açılıp kapanması

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Sub Command1_Click()
sürücü = InputBox("sürücüyü seçiniz..", "SÜRÜCÜ HARFİ", "H")
Dim lRet As Long
lRet = mciSendString("open cdaudio!" & sürücü & ": alias driveX", 0&, 0, 0)
lRet = mciSendString("set driveX door open wait", 0&, 0, 0)
lRet = mciSendString("close driveX", 0&, 0, 0)
End Sub
Private Sub Command2_Click()
sürücü = InputBox("sürücüyü seçiniz..", "SÜRÜCÜ HARFİ", "H")
Dim lRet As Long
lRet = mciSendString("open cdaudio!" & sürücü & ": alias driveX", 0&, 0, 0)
lRet = mciSendString("set driveX door closed wait", 0&, 0, 0)
lRet = mciSendString("close driveX", 0&, 0, 0)
End Sub

 

[Gorarr]

Her ikinizede çok teşekkür ederim...

 

[Erhan Üstünel]

Merhaba, VBA 6.0 ile yapılmış küçük örnek dosyalar bulabileceğim bi yer varmı acaba