這個問題可以用注冊表解決。
創(chuàng)新互聯(lián)建站服務項目包括武漢網(wǎng)站建設(shè)、武漢網(wǎng)站制作、武漢網(wǎng)頁制作以及武漢網(wǎng)絡營銷策劃等。多年來,我們專注于互聯(lián)網(wǎng)行業(yè),利用自身積累的技術(shù)優(yōu)勢、行業(yè)經(jīng)驗、深度合作伙伴關(guān)系等,向廣大中小型企業(yè)、政府機構(gòu)等提供互聯(lián)網(wǎng)行業(yè)的解決方案,武漢網(wǎng)站推廣取得了明顯的社會效益與經(jīng)濟效益。目前,我們服務的客戶以成都為中心已經(jīng)輻射到武漢省份的部分城市,未來相信會繼續(xù)擴大服務區(qū)域并繼續(xù)獲得客戶的支持與信任!
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分離出來就好了
If System.IO.File.ReadAllBytes(文衫正衫件名或腔1).SequenceEqual(System.IO.File.ReadAllBytes(文件名清粗2)) Then
相等
Else
不相等
End If
合法肆絕性校驗有很多方悶雹法,螞雹帆要視情況而定,比如說可以用正則表達式,如果是數(shù)字,除了正則表達式,也可以用諸如TryParse這種方法。
網(wǎng)頁名稱:vb點虐
文件校驗 vbnet config文件讀取
路徑分享:http://www.chinadenli.net/article24/ddpggce.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供外貿(mào)網(wǎng)站建設(shè)、網(wǎng)站營銷、Google、靜態(tài)網(wǎng)站、動態(tài)網(wǎng)站、網(wǎng)站設(shè)計公司
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)