vb.net 如何判斷兩個(gè)類(lèi)的對(duì)象是否相等

If System.IO.File.ReadAllBytes(文件名1).SequenceEqual(System.IO.File.ReadAllBytes(文件名2)) Then

創(chuàng)新互聯(lián)建站主營(yíng)略陽(yáng)網(wǎng)站建設(shè)的網(wǎng)絡(luò)公司,主營(yíng)網(wǎng)站建設(shè)方案,app軟件定制開(kāi)發(fā),略陽(yáng)h5小程序開(kāi)發(fā)搭建,略陽(yáng)網(wǎng)站營(yíng)銷(xiāo)推廣歡迎略陽(yáng)等地區(qū)企業(yè)咨詢

相等

Else

不相等

End If

vb.net 如何判斷網(wǎng)絡(luò)地址上的指定文件是否存在

Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long

這是封裝在Shell32.DLL系統(tǒng)文件里的一個(gè)函數(shù)，既可以判斷本地文件是否存在，又可以判斷遠(yuǎn)程電腦上的文件是否存在。函數(shù)返回值是個(gè)Long型變量，返回兩個(gè)值0,1。1表示文件存在(True),0表示文件不存在(False)。而且只有一個(gè)參數(shù)szPath,是個(gè)字符串變量，如果要判斷本地的文件是否存在其路徑可寫(xiě)為：”C:\Windows\Config\SysBook.Txt”)，如果文件在遠(yuǎn)程電腦上，其路徑可寫(xiě)為（假設(shè)對(duì)方電腦IP為192.168.0.2)

"\\192.168.0.2\d$\javatools\somefile.txt",如果其電腦名為WorkStation可寫(xiě)為

“\\workstation\javatools\somefile.txt"，當(dāng)然這個(gè)函數(shù)還可以查找網(wǎng)站上的網(wǎng)頁(yè)文件如：""

我們可以寫(xiě)個(gè)簡(jiǎn)單的自定義公用函數(shù)來(lái)完成這個(gè)功能，在自定義函數(shù)里調(diào)用這個(gè)API函數(shù)

Public Function GetFileExists(ByVal FileName As String) As Boolean

If FileName = "" Then

MsgBox "請(qǐng)輸入文件名", vbInformation, "提示"

Exit Function

Else

GetFileExists = CBool(PathFileExists(FileName))

End If

End Function

在窗體界面上加一按鈕,和一文本框

Private Sub Command1_Click()

Dim T As Boolean

T = GetFileExists("F:\it\Develope\Retail\Bill\vssver.scc")

If T = True Then

Text1.Text = "該文件存在"

Else

Text1.Text = "該文件不存在"

End If

End Sub

當(dāng)然GetFileExists其中的參數(shù)還可以寫(xiě)成

"\\192.168.0.2\d$\javatools\somefile.txt"

"\\workstation\javatools\somefile.txt"

""

這個(gè)函數(shù)除了能判斷文件是否存在外，還可以判斷本地或遠(yuǎn)程文件夾

是否存在，我覺(jué)得這要比用Dir這個(gè)VB自帶函數(shù)來(lái)判斷文件是否存在要好用多了，而且也不需要調(diào)用FileSystemObject組件來(lái)操作了。

在vb.net中怎么判斷兩個(gè)字符串相等

Dim A As String, B As String

A = "123456"

B = "123456"

If A = B Then GoTo xiangdeng

MsgBox "不相等"

GoTo buxiangdeng

xiangdeng:

MsgBox "相等"

buxiangdeng: