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

Option Explicit

創(chuàng)新互聯(lián)公司云計(jì)算的互聯(lián)網(wǎng)服務(wù)提供商,擁有超過(guò)13年的服務(wù)器租用、中國(guó)電信成都樞紐中心、云服務(wù)器、虛擬空間、網(wǎng)站系統(tǒng)開(kāi)發(fā)經(jīng)驗(yàn)，已先后獲得國(guó)家工業(yè)和信息化部頒發(fā)的互聯(lián)網(wǎng)數(shù)據(jù)中心業(yè)務(wù)許可證。專(zhuān)業(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 只讀文件。屬性為讀/寫(xiě)。

'2 隱藏文件。屬性為讀/寫(xiě)。

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

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

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

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

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

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

Print f.DateCreated

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

Print f.DateLastAccessed

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

Print f.DateLastModified

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

Print f.Name

'設(shè)置或返回指定的文件或文件夾的名稱(chēng)?？勺x寫(xiě)。

Print f.Path

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

Print f.Size

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

End Sub

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

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

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

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

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

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

f.Dispose()

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

FileStream 類(lèi)：

Bitmap 類(lèi)：

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")