زیر نظر گرفتن تغییرات فایلها

[VB.SOS]

سلام خدمت دوستان عزیز
چه طور می تونیم تغییر مسیر و تغییر نام فایل و.. یک فایل رو در لحظه تشخیص بدیم؟

[far9090]

سلام . می تونی یک تایمر بذاری و با تابع DIR وجودش رو چک کنی . برای تغییرات دیگه مثل سایز و ... ماژول زیاد هست . این دو تا تابع سایز رو چک می کنن .

Private Function CheckFilesForSecurity() As Boolean
Const numberofFiles = 5
Dim strFiles(numberofFiles) As String: Dim intSizes(numberofFiles) As Long
strFiles(1) = "Filename1": intSizes(1) = 15643236
strFiles(2) = "FileName2": intSizes(2) = 97751
strFiles(3) = "FileName3": intSizes(3) = 801025
strFiles(4) = "FileName4": intSizes(4) = 1150782
strFiles(5) = "FileName5": intSizes(5) = 267962
For i = 1 To numberofFiles
counter = counter + 1
If Not CheckFileSize(App.Path + "\data1\" + strFiles(counter), intSizes(counter)) Then
CheckFilesForSecurity = False
Exit Function
End If
Next i
CheckFilesForSecurity = True
End Function

Public Function CheckFileSize(fileName As String, FileSizeKB As Long) As Boolean
On Error GoTo 1
Dim fso As FileSystemObject
Set fso = New FileSystemObject
Dim f As File
Set f = fso.GetFile(fileName)
Dim filesize As Long
filesize = f.Size '/ (2 ^ 10) 'Kilobyte
If (filesize = FileSizeKB) Then
CheckFileSize = True
Else
CheckFileSize = False
End If
1: If (Err.Number = 53) Then CheckFileSize = False
End Function

[VB.SOS]

دوست عزیز ممنونم ولی منظور من دقیقتر از اینه. دقیقا این کار رو Windows Media Player میکنه. من به کاری که Windows Media Player می کنه نیاز دارم. مثلا به محض تغییر در حتی نام فایل و مسیر فایل این تغییر تو کتابخانه منعکس میشه. اگه این کار رو توضیح بدین ممنون میشم.

[VB.SOS]

از دوستان کسی نمیتونه کمکی به من بکنه؟