如何在vb中實(shí)現(xiàn)查看文件的屬性?

Option Explicit

創(chuàng)新互聯(lián)公司云計(jì)算的互聯(lián)網(wǎng)服務(wù)提供商,擁有超過13年的服務(wù)器租用、中國電信成都樞紐中心、云服務(wù)器、虛擬空間、網(wǎng)站系統(tǒng)開發(fā)經(jīng)驗(yàn)，已先后獲得國家工業(yè)和信息化部頒發(fā)的互聯(lián)網(wǎng)數(shù)據(jù)中心業(yè)務(wù)許可證。專業(yè)提供云主機(jī)、虛擬空間、空間域名、VPS主機(jī)、云服務(wù)器、香港云服務(wù)器、免備案服務(wù)器等。

Private Sub Command1_Click()

Dim fs, f

Set fs = CreateObject("Scripting.FileSystemObject")

Set f = fs.GetFile("C:\新建 文本文檔.txt")

Print f.Attributes

'0 一般文件。未設(shè)置屬性。

'1 只讀文件。屬性為讀/寫。

'2 隱藏文件。屬性為讀/寫。

'4 系統(tǒng)文件。屬性為讀/寫。

'8 磁盤驅(qū)動(dòng)器卷標(biāo)。屬性為只讀。

'16 文件夾或目錄。屬性為只讀。

'32 自上次備份后已經(jīng)改變的文件。屬性為讀/寫。

'64 鏈接或快捷方式。屬性為只讀。

'128 壓縮文件。屬性為只讀。

Print f.DateCreated

'返回指定文件或文件夾的創(chuàng)建日期和時(shí)間?只讀?

Print f.DateLastAccessed

'返回最后一次訪問指定文件或文件夾的日期和時(shí)間。只讀。

Print f.DateLastModified

'返回最后一次修改指定文件或文件夾的日期和時(shí)間?只讀?

Print f.Name

'設(shè)置或返回指定的文件或文件夾的名稱。可讀寫。

Print f.Path

'返回指定文件、文件夾或驅(qū)動(dòng)器的路徑。

Print f.Size

'對(duì)于文件，返回指定文件的字節(jié)數(shù)；對(duì)于文件夾，返回該文件夾中所有文件和子文件夾的字節(jié)數(shù)。

End Sub

上面的就包括所有屬性了，如果想要彈出窗口要自己做個(gè)窗口，把上面的屬性排列上去

VB.NET獲取Image圖片對(duì)象屬性

用FileStream打開文件查看大小再創(chuàng)建Bitmap顯示圖片尺寸。

Dim?f?As?New?IO.FileStream("C:\1.bmp",?IO.FileMode.Open,?IO.FileAccess.Read)?'改成你的文件地址。

MsgBox(f.Length?/?1024??"KB")?'沒做仔細(xì)，你根據(jù)需要自己改吧，Length得到的是字節(jié)數(shù)。

Dim?b?As?New?Bitmap(f)

f.Dispose()

MsgBox(b.Width??"?*?"??b.Height)

FileStream 類：

Bitmap 類：

VB.net如何提取system并修改文件安全屬性？

將以下代碼保存到模塊中：

Declare Function GetPrivateProfileString Lib "kernel32" Alias _

"GetPrivateProfileStringA" (ByVal lpApplicationName As String, _

ByVal lpKeyName As Any, _

ByVal lpDefault As String, _

ByVal lpReturnedString As String, _

ByVal nSize As Long, _

ByVal lpFileName As String) As Long

Declare Function WritePrivateProfileStringByKeyName Lib "kernel32" Alias _

"WritePrivateProfileStringA" (ByVal lpApplicationName As String, _

ByVal lpKeyName As String, _

ByVal lpString As String, _

Public Function GetIniParam(NomFichier As String, NomSection As String, NomVariable As String) As String

Dim ReadString As String * 255

Dim returnv As String

Dim mResultLen As Integer

mResultLen = GetPrivateProfileString(NomSection, NomVariable, "(Unassigned)", ReadString, Len(ReadString) - 1, NomFichier)

If IsNull(ReadString) Or Left$(ReadString, 12) = "(Unassigned)" Then

Dim Tempvalue As Variant

Dim Message As String

Message = "配置文件 " NomFichier " 不存在."

returnv = ""

Else

returnv = Left$(ReadString, InStr(ReadString, Chr$(0)) - 1)

End If

GetIniParam = returnv

End Function

Public Function WriteWinIniParam(NomDuIni As String, sLaSection As String, sNouvelleCle As String, sNouvelleValeur As String)

Dim iSucccess As Integer

iSucccess = WritePrivateProfileStringByKeyName(sLaSection, sNouvelleCle, sNouvelleValeur, NomDuIni)

If iSucccess = 0 Then

WriteWinIniParam = False

Else

WriteWinIniParam = True

End If

End Function

調(diào)用方法：

Call WriteWinIniParam(App.Path "\LiveUpdate.ini", "LiveUpdate", "AppName", txtAppName.Text)

txtFile.Text = GetIniParam(App.Path "\LiveUpdate.ini", "LiveUpdate", "FILES1")

當(dāng)前名稱：vb.net獲取文件屬性 vb獲取指定文件路徑
鏈接分享：http://www.chinadenli.net/article6/ddohjig.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站維護(hù)、外貿(mào)建站、網(wǎng)站導(dǎo)航、網(wǎng)站設(shè)計(jì)、ChatGPT、企業(yè)網(wǎng)站制作

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)