這個問題可以用注冊表解決。
創(chuàng)新互聯(lián)-專業(yè)網(wǎng)站定制、快速模板網(wǎng)站建設、高性價比久治網(wǎng)站開發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫,直接使用。一站式久治網(wǎng)站制作公司更省心,省錢,快速模板網(wǎng)站建設找我們,業(yè)務覆蓋久治地區(qū)。費用合理售后完善,10年實體公司更值得信賴。
Function getOpenCommand(fileExt As String) as String
Dim fileType as String, openCommand as String
fileExt = "." + fileExt
'取得文件擴展名在注冊表里的文件類型名稱
'比如.zip的類型名稱一般是zipfile
fileType = 讀取注冊表的classes_root下的子鍵(fileExt)的默認鍵值
'取得打開這種文件的程序
openCommand = 讀取注冊表的classes_root下的子鍵(fileType + "\shell\open\command")的默認鍵值
Return getOpenCommand
End Function
讀取注冊表的HKEY_CLASSES_ROOT下的子鍵的默認鍵值的方法可以在網(wǎng)上搜索到。
這樣getOpenCommand("doc")就可以得到一個字符串(包括引號):
"C:\Program Files\Word\word.exe" "%1"
這里只需要用Spilt函數(shù)把C:\Program Files\Word\word.exe分離出來就好了
先用 SELECT name from sysobjects WHERE xtype = 'u'查出數(shù)據(jù)庫中所有用戶表
然后用 select name from syscolumns where id=....查出所有字段
最后一一比較,不過這種做法的效率太低了.
If System.IO.File.ReadAllBytes(文件名1).SequenceEqual(System.IO.File.ReadAllBytes(文件名2)) Then
相等
Else
不相等
End If
vb.net規(guī)定如果要比較字符串,不能用“=”,strcomp(str1,str2,n)或者string.compare(str1,str2)
例如:
Dim a As String = "c"
Dim b As String = "c"
Dim n As Integer = String.Compare(a, b)
If n = 0 Then
MsgBox("=")
Else
MsgBox("")
End If