Sayın benremix;
sorum şu şekilde çözülmüştür
Dim BB As String
aa = CurrentProject.Path
BB = left(aa, 1)
Dim fso As Object
Dim drv As Object
Set fso = CreateObject("Scripting.FileSystemObject")
If BB = "C" Then
Set drv = fso.drives.Item("c")
ElseIf BB = "D" Then
Set drv = fso.drives.Item("D")
ElseIf BB = "E" Then
Set drv = fso.drives.Item("E")
ElseIf BB = "F" Then
Set drv = fso.drives.Item("f")
ElseIf BB = "G" Then
Set drv = fso.drives.Item("G")
ElseIf BB = "I" Then
Set drv = fso.drives.Item("I")
ElseIf BB = "H" Then
Set drv = fso.drives.Item("H")
ElseIf BB = "H" Then
Set drv = fso.drives.Item("H")
End If
Şifre denetiminde değişken sürücü
Bu Konudaki Yorumlar |
Şifre denetiminde değişken sürücü - Yazar: herdogan - 30/01/2010, 20:22
Cvp: Şifre denetiminde değişken sürücü - Yazar: ayhan2122 - 30/01/2010, 21:34
Cvp: Şifre denetiminde değişken sürücü - Yazar: herdogan - 31/01/2010, 00:51
Cvp: Şifre denetiminde değişken sürücü - Yazar: mehmetdemiral - 31/01/2010, 01:04
Cvp: Şifre denetiminde değişken sürücü - Yazar: herdogan - 31/01/2010, 01:20
Cvp: Şifre denetiminde değişken sürücü - Yazar: benremix - 27/02/2010, 06:32
Cvp: Şifre denetiminde değişken sürücü - Yazar: herdogan - 27/02/2010, 08:47
Cvp: Şifre denetiminde değişken sürücü - Yazar: benremix - 27/02/2010, 10:36
|
Konuyu Okuyanlar: 1 Ziyaretçi