Flash Bellekteki Belgelere Oluşturduğum Köprü, Farklı Pc'de Çalışmıyor

24/04/2022, 12:40

tarkanaykın

merhaba arkadaşlar, bana sadece flash belleğin harfini öğrenmek için basit bir işlem gerekiyor, çok araştırdım da sağlıklı bir basit koda ulaşamadım, acaba nasıl öğrenebiliriz, neden öğrenmem gerekiyor çünkü her pc de adı değişebiliyor bu yüzden, uygulamamın kullandığı dosyalar flash bellekte olmak zorunda, yardımcı olur musunuz?
24/04/2022, 12:46

berduş

uygulamanızın tamamı flash bellekte mi olacak? bu durumda currentproject.Path ile uygulama adresi alınabilir
24/04/2022, 12:48

tarkanaykın

(24/04/2022, 12:46)berduş yazdı: uygulamanızın tamamı flash bellekte mi olacak? bu durumda currentproject.Path ile uygulama adresi alınabilir

yok uygulama farklı sürücüde de olabilir, flash bellekte de..
24/04/2022, 13:14

berduş

aşağıdaki kodlar ile tüm sürücüler tanımlanıp türü belirtiliyor kendi çalışmanıza uyarlayabilirsiniz?Tüm sürücüleri tarar
Sub SurucuBul()
Dim fso As Object ' FileSystemObject
Dim d As Object 'Drive
Dim dName As String
Dim k As String
Dim g As String
Set fso = CreateObject("Scripting.Filesystemobject")
For Each d In fso.Drives
SurucuTur d.DriveLetter
Next d
End Sub
sürücülerin Türünü ekrana yazar
Sub SurucuTur(SurucuYol)
Dim fs, d, s, t
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(SurucuYol)
Select Case d.DriveType
Case 0: t = "Unknown/Bilinmeyen"
Case 1: t = "Removable/Çıkarılabilir"
Case 2: t = "Fixed/Yerel"
Case 3: t = "Network/Ağ"
Case 4: t = "CD-ROM"
Case 5: t = "RAM Disk"
End Select
s = "Drive " & d.DriveLetter & ": - " & t
Debug.Print s
End Sub
24/04/2022, 17:43

tarkanaykın

çok teşekkürler berduş hocam sağolun, bunun üzerinde biraz uğraşırsam ihtiyacımı karşılayabilecek gibi, teşekkürler
24/04/2022, 19:12

berduş

Rica ederim
İyi çalışmalar