hadoan-pap
Thành viên tiêu biểu
- Tham gia
- 8/7/15
- Bài viết
- 461
- Được thích
- 20
Em chào mọi người.
Em có đoạn code bên dưới mục đích là để tìm các file trong 1 folder sau đó phân quyền. Tiêu chí là Modify Date của file nào mà cách thời điểm hiện tại nhiều hơn 7 ngày, khi đó nó mới thực hiện thay đổi quyền ( sửa, xóa ) cho user vào file.
Nhưng hiện tại nó đang bị lỗi cái "oFile" trong đoạn "SetAccess sUserName, oFile, GENERIC_READ Or GENERIC_EXECUTE Or DELETE Or GENERIC_WRITE"
Rất mong mọi người giúp xem và kiểm tra, sửa giúp em ạ.
Em xin cảm ơn!
Dir_Path = "C:\TEST"
iMaxAge = 7 ' Set the number of days
Dim sUserName As String
sUserName = "Everyone"
Set oFSO = CreateObject("Scripting.FileSystemObject")
''If oFSO.FolderExists(Dir_Path) Then 'Check that the folder exists
For Each oFile In oFSO.GetFolder(Dir_Path).Files
If DateDiff("d", oFile.DateLastModified, Now) > iMaxAge Then 'Look at each file to check if it is older than 7 days
SetAccess sUserName, oFile, GENERIC_READ Or GENERIC_EXECUTE Or DELETE Or GENERIC_WRITE
End If
Next
''End If
Em có đoạn code bên dưới mục đích là để tìm các file trong 1 folder sau đó phân quyền. Tiêu chí là Modify Date của file nào mà cách thời điểm hiện tại nhiều hơn 7 ngày, khi đó nó mới thực hiện thay đổi quyền ( sửa, xóa ) cho user vào file.
Nhưng hiện tại nó đang bị lỗi cái "oFile" trong đoạn "SetAccess sUserName, oFile, GENERIC_READ Or GENERIC_EXECUTE Or DELETE Or GENERIC_WRITE"
Rất mong mọi người giúp xem và kiểm tra, sửa giúp em ạ.
Em xin cảm ơn!
Dir_Path = "C:\TEST"
iMaxAge = 7 ' Set the number of days
Dim sUserName As String
sUserName = "Everyone"
Set oFSO = CreateObject("Scripting.FileSystemObject")
''If oFSO.FolderExists(Dir_Path) Then 'Check that the folder exists
For Each oFile In oFSO.GetFolder(Dir_Path).Files
If DateDiff("d", oFile.DateLastModified, Now) > iMaxAge Then 'Look at each file to check if it is older than 7 days
SetAccess sUserName, oFile, GENERIC_READ Or GENERIC_EXECUTE Or DELETE Or GENERIC_WRITE
End If
Next
''End If
