(17/09/2018, 11:09)Kılıçarslan yazdı: Paylaşım için teşekkürler dosyayı indirdim lakin giriş yapamıyorum kontrol etmeniz mümkünmüdür.

64 bit ofis kullanıyorsanız Module2 isimli modüldeki

Private Declare Function BlackEagle Lib "kernel32.dll" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As _

String, ByVal nVolumeNameSize As Integer, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal _

lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long

kodundaki Declare ile Function arasına PtrSafe ekleyerek deneyiniz. Kod aşağıdaki gibi olacak.

Private Declare PtrSafe Function BlackEagle Lib "kernel32.dll" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As _

String, ByVal nVolumeNameSize As Integer, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal _

lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long