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?
uygulamanızın tamamı flash bellekte mi olacak? bu durumda currentproject.Path ile uygulama adresi alınabilir
(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..
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
çok teşekkürler berduş hocam sağolun, bunun üzerinde biraz uğraşırsam ihtiyacımı karşılayabilecek gibi, teşekkürler
Rica ederim
İyi çalışmalar