vb 讀取檔案屬性

2021-05-24 09:54:11 字數 1485 閱讀 3144

如果只是檢視大小、修改時間的話,可以直接使用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...