如果只是檢視大小、修改時間的話,可以直接使用vb內建函式:返回檔案位元組大小:filelen(檔案路徑)
示例:private sub form_load()
dim sout as string
const sfile as string = "c:/windows/notepad.exe"
sout = "檔案路徑: " & sfile & vbcrlf & _
"修改日期: " & filedatetime(sfile) & vbcrlf & _
"檔案大小: " & filelen(sfile) & "位元組"
msgbox sout
end sub
如果要更多屬性,則需要用到fso。只有執行時確定使用者的機器上有且沒有禁用「microsoft scripting runtime」。
工程=>引用,鉤選「microsoft scripting runtime」,確定。
示例:private sub form_load()
dim sout as string
const sfile as string = "c:/windows/notepad.exe"
sout = "檔案路徑: " & sfile & vbcrlf & _
"建立日期: " & getfileattr(sfile, 0) & vbcrlf & _
"修改日期: " & getfileattr(sfile, 1) & vbcrlf & _
"訪問日期: " & getfileattr(sfile, 2) & vbcrlf & _
"檔案大小: " & getfileattr(sfile, 3) & "位元組" & vbcrlf & _
"檔案型別: " & getfileattr(sfile, 4)
msgbox sout
end sub
private function getfileattr(spath as string, iattr as integer)
dim ofso as new filesystemobject
dim ofile as file
dim sout as string
set ofile = ofso.getfile(spath)
select case iattr
case 0 '建立日期
sout = ofile.datecreated
case 1 '修改日期
sout = ofile.datelastmodified
case 2 '訪問日期
sout = ofile.datelastaccessed
case 3 '檔案大小
sout = ofile.size
case 4 '檔案型別
sout = ofile.type
end select
getfileattr = sout
end function
讀取xml檔案屬性的問題
獲取menu xml資訊 xmldocument xmldoc new xmldocument xmldoc.load xmlpath change this line 訪問任意接點的子節點的屬性 mydom.childnodes i attributes i get first element x...
springboot讀取配置檔案屬性
比如xiao.zg.host 127.0.0.1 username xzg85586537 那麼就建立乙個檔案 data configurationproperties prefix xiao.zg 配置檔案的字首 public class xiaoproperties string host st...
物件讀取SpringBoot配置檔案屬性值
1.properties配置檔案屬性如下 2.實體類物件宣告 component configurationproperties prefix spring.redis 配置檔案中對應的字首 public class redisconfig public void setredishost stri...