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

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

為新源等地區(qū)用戶提供了全套網(wǎng)頁(yè)設(shè)計(jì)制作服務(wù)，及新源網(wǎng)站建設(shè)行業(yè)解決方案。主營(yíng)業(yè)務(wù)為成都網(wǎng)站設(shè)計(jì)、成都網(wǎng)站制作、新源網(wǎng)站設(shè)計(jì)，以傳統(tǒng)方式定制建設(shè)網(wǎng)站，并提供域名空間備案等一條龍服務(wù)，秉承以專業(yè)、用心的態(tài)度為用戶提供真誠(chéng)的服務(wù)。我們深信只要達(dá)到每一位用戶的要求，就會(huì)得到認(rèn)可，從而選擇與我們長(zhǎng)期合作。這樣，我們也可以走得更遠(yuǎn)！

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中實(shí)現(xiàn)查看文件的屬性?

Option Explicit

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è)置或返回指定的文件或文件夾的名稱。可讀寫(xiě)。

Print f.Path

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

Print f.Size

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

End Sub

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

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

vbnet 如何獲取文件大小

你實(shí)例化一個(gè)文件對(duì)象，就可以獲取這個(gè)文件的相關(guān)屬性了，VB.NET實(shí)例，以你的文件為例：

Dim sourcefileinfo As New FileInfo(“ c:\1.txt”) '定義并實(shí)例化FileInfo對(duì)象。length就是它的大小！

label1.Text = "文件大小為: " sourcefileinfo.Length "字節(jié)"

文章標(biāo)題：net.vb獲取文件屬性 vb獲取當(dāng)前文件夾路徑
URL鏈接：http://chinadenli.net/article40/doghgho.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站內(nèi)鏈、標(biāo)簽優(yōu)化、定制網(wǎng)站、網(wǎng)站排名、網(wǎng)站收錄、小程序開(kāi)發(fā)

廣告

聲明：本網(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í)需注明來(lái)源： 創(chuàng)新互聯(lián)