dim fso as object, folder as object, file as object
dim fil as object
dim strfilename as string
dim strlastaccesseddate as string
set fso = createobject("scripting.filesystemobject") '建立fso物件
set folder = fso.getfolder(rootf)
for each file in folder.files
'遍歷根資料夾下的檔案
strfilename = rootf & file.name
set fil = fso.getfile(strfilename)
strlastaccesseddate = fil.datelastaccessed
if cdate(strlastaccesseddate) > (now() - 90) then
fso.deletefile strfilename, true
end if
' with fil
' debug.print "檔名：" & .name
' debug.print "檔案" & .name & "的大小：" & .size
' debug.print "檔案" & .name & "的型別：" & .type
' debug.print "檔案" & .name & "的建立日期：" & .datecreated
' debug.print "檔案" & .name & "的最後訪問日期：" & .datelastaccessed
' debug.print "檔案" & .name & "的最後修改日期：" & .datelastmodified
' debug.print "檔案" & .name & "所在驅動器：" & .drive
' debug.print "檔案" & .name & "所在資料夾：" & .parentfolder
' debug.print "檔案" & .name & "檔名（不支援長檔名）：" & .shortname
' debug.print "檔案" & .name & "完整路徑（支援長檔名）：" & .path
' debug.print "檔案" & .name & "完整路徑（不支援長檔名）：" & .shortpath
' end with
next
set fso = nothing
set folder = nothing
set fso = nothing
vb 獲取檔案的時間屬性
sub showfileaccessinfo filespec dim fs,f,s set fs createobject scripting.filesystemobject set f fs.getfile filespec s ucase filespec vbcrlf s s create...
VB 改變檔案唯讀屬性
setattr 語句 為乙個檔案設定屬性資訊。語法 setattr pathname,attributes setattr 語句的語法含有以下這些命名引數 部分 描述 pathname 必要引數。用來指定乙個檔名的字串表示式，可能包含目錄或資料夾 以及驅動器。attributes 必要引數。常數或數...
vb 讀取檔案屬性
如果只是檢視大小 修改時間的話，可以直接使用vb內建函式 返回檔案位元組大小 filelen 檔案路徑 示例 private sub form load dim sout as string const sfile as string c windows notepad.exe sout 檔案路徑 ...