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