AccessTr.neT
Flash Bellekteki Belgelere Oluşturduğum Köprü, Farklı Pc'de Çalışmıyor - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Flash Bellekteki Belgelere Oluşturduğum Köprü, Farklı Pc'de Çalışmıyor (/konu-flash-bellekteki-belgelere-olusturdugum-kopru-farkli-pc-de-calismiyor.html)

Flash Bellekteki Belgelere Oluşturduğum Köprü, Farklı Pc'de Çalışmıyor - tarkanaykın - 24/04/2022

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?

RE: Flash Bellekteki Belgelere Oluşturduğum Köprü, Farklı Pc'de Çalışmıyor - berduş - 24/04/2022

uygulamanızın tamamı flash bellekte mi olacak? bu durumda currentproject.Path ile uygulama adresi alınabilir

RE: Flash Bellekteki Belgelere Oluşturduğum Köprü, Farklı Pc'de Çalışmıyor - tarkanaykın - 24/04/2022

(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..

RE: Flash Bellekteki Belgelere Oluşturduğum Köprü, Farklı Pc'de Çalışmıyor - berduş - 24/04/2022

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


RE: Flash Bellekteki Belgelere Oluşturduğum Köprü, Farklı Pc'de Çalışmıyor - tarkanaykın - 24/04/2022

çok teşekkürler berduş hocam sağolun, bunun üzerinde biraz uğraşırsam ihtiyacımı karşılayabilecek gibi, teşekkürler

RE: Flash Bellekteki Belgelere Oluşturduğum Köprü, Farklı Pc'de Çalışmıyor - berduş - 24/04/2022

Rica ederim
İyi çalışmalar