gicimi
Yeni Üye
- Katılım
- 18 Haz 2018
- Mesajlar
- 64
- En iyi yanıt
- 0
- Puanları
- 18
- Yaş
- 36
- Konum
- Ankara
- Ad Soyad
- Hüseyin Yılmaz
- Office Vers.
- Office 2016 Pro
Arkadaşlar merhaba,
Hepimizin bilgisayarında zaman zaman aynı dosyaların bir çok kopyası farklı yerlerde farklı isimlerle bulunabilir. Aşağıda size sunacağım kod ile farklı isimlerle de olsa aynı verileri içeren dosyaları bulmak mümkün olacak.
Not: Farklı kişiler çok farklı amaçlarla kullanabileceği için genel bir fonksiyon yazmanın daha doğru olacağını düşündüm. Kişisel kullanımınıza göre üzerinde istediğiniz değişiklikleri yapabilirsiniz.
Hepimizin bilgisayarında zaman zaman aynı dosyaların bir çok kopyası farklı yerlerde farklı isimlerle bulunabilir. Aşağıda size sunacağım kod ile farklı isimlerle de olsa aynı verileri içeren dosyaları bulmak mümkün olacak.
Not: Farklı kişiler çok farklı amaçlarla kullanabileceği için genel bir fonksiyon yazmanın daha doğru olacağını düşündüm. Kişisel kullanımınıza göre üzerinde istediğiniz değişiklikleri yapabilirsiniz.
CSS:
Function FileComparison(strSourceFilePath As String, strTargetFilePath As String) As Boolean
'Default değer
FileComparison = False
Dim sFs As Object 'Kaynak dosya yayını
Dim tFs As Object 'Hedef dosya yayını
'nesne oluşturma
Set sFs = CreateObject("ADODB.Stream")
Set tFs = CreateObject("ADODB.Stream")
'kaynak stream açma
sFs.Open
'kaynak stream içine dosa yükleme
sFs.LoadFromFile (strSourceFilePath)
'hedef stream açma
tFs.Open
'hedef stream içine dosya yükleme
tFs.LoadFromFile (strTargetFilePath)
If sFs.ReadText = tFs.ReadText Then
'true dosyalar aynı
FileComparison = True
Else
'false dosyalar farklı
FileComparison = False
End If
End Function