Flash disk ile tüm pclerde ortak veri açma

[Kavinsky]

Öncelikle herkese merhabalar.

Benim içinden çıkamadığım bir problem var. Bir adet excel dosyası yaptım,içinde Muhasebe ağ yolundan ulaşıp açtığı bir exe dosyası var. Aynı anda 3-4 pc ağa ulaşınca bu dosyaya boyutu yüksek olduğu için açmakta zorluk yaşanıyor. Yerel disktede yer olmadığı için flash bellek alarak ve bu dosyaları buraya koyarak bu sıkıntıyı çözmeye çalıştım. Şimdi sıkıntım şu ,flash belleği bazı bilgisayarlara taktığımda F:\diski bazı bilgisayarlarda G:\ ya da H:\ gibi gözüküyor. Benim istediğim flash diskin içine attığım excelde aşağıdaki dosyayı disk ismi ne olursa olsun açsın. Yani kod mantığı şu olsun excel dosyasının bulunduğu dizini baz alarak exe dosyasını aç. Böyle birşeyin imkanı var mıdır ? Yardımlarınız için teşekkür ederim

Örnek olarak

\\Muhasebe\Kitap\TURKCE\5-sinif-turkce-konu-anlatimi.exe"

değil de

H:\Kitap\TURKCE\5-sinif-turkce-konu-anlatimi.exe"

şeklinde olsun ama başındaki Harfi ,hangi bilgisayara takarsam takayım ismi önemsemesin direk o flashtan okusun.

 

[halit3]

Bu kodu bir dene

Sub flas_disk_bul()

Dim ds, d, adres
Set ds = CreateObject("Scripting.FileSystemObject")
adres = "\Kitap\TURKCE\5-sinif-turkce-konu-anlatimi.exe"

For Each sürücü In ds.Drives
On Error Resume Next
Set d = ds.GetDrive(sürücü)
If d.DriveType = 1 Then

MsgBox sürücü & adres
Exit For
End If

Next
End Sub

 

[Kavinsky]

Üstadım ellerinize sağlık. Tam sorumun cevabı olmuş.

 

[halit3]

Bilgisayarda bir kaç tane flas disk takılı ise bu durumda hangi flas da dosya varsa bu kod onun için

kod:

Sub flas_disk_bul()

Dim ds, d, adres
Set ds = CreateObject("Scripting.FileSystemObject")
adres = "\Kitap\TURKCE\5-sinif-turkce-konu-anlatimi.exe"
For Each sürücü In ds.Drives
On Error Resume Next
Set d = ds.GetDrive(sürücü)
If d.DriveType = 1 Then
[COLOR="Red"]If ds.FileExists(sürücü & adres) = True Then[/COLOR]
MsgBox sürücü & adres
Exit For
[COLOR="red"]End If[/COLOR]
End If

Next
End Sub

 

[Kavinsky]

Üstadım şöyle bir hata verdi ve açmıyor . Sebebi ne olabilir.

 

[halit3]

flas diskin içinde Kitap klasörü olmalı Kitap klasörünün içinde TURKCE klasörü olmalı TURKCE klasörün içinde 5-sinif-turkce-konu-anlatimi.exe dosyası olmalı