以修改“C:\abc.txt"為bat為例。
公司主營業務:網站建設、網站制作、移動網站開發等業務。幫助企業客戶真正實現互聯網宣傳,提高企業的競爭能力。創新互聯是一支青春激揚、勤奮敬業、活力青春激揚、勤奮敬業、活力澎湃、和諧高效的團隊。公司秉承以“開放、自由、嚴謹、自律”為核心的企業文化,感謝他們對我們的高要求,感謝他們從不同領域給我們帶來的挑戰,讓我們激情的團隊有機會用頭腦與智慧不斷的給客戶帶來驚喜。創新互聯推出登封免費做網站回饋大家。
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Myfile As String
Myfile = IO.Path.ChangeExtension("C:\abc.txt", ".bat")
Microsoft.VisualBasic.FileSystem.Rename("C:\abc.txt", Myfile)
End Sub
End Class
無法直接獲取,但可以采用變通的方法,思路:
把word轉換成二進制流前先用變量把拓展名和后綴獲取到(例如 var filename = “xxxx.doc”)
定義一個int變量記錄二進制流(word)的長度。并將該變量轉成4字節的btye[]數組
將第一步中獲取到的文件名字符串轉成byte[]數組。
將字節按照: word文件byte[]+文件名byte[]+word文件長度byte[](第二步)按照順序拼接成一個byte[]數組
還原:
1.首先讀取總byte[]的后4個字節,以確定文件二進制流的有效長度(假設為L).
2.將索引0至L 之間的字節數組按常規方式恢復成流.
3.將索引L至N-4之間的字節數組還原成字符串,即可獲得原文件名.
然后,愛咋咋地~~~~
創建一個文本文件,在其中輸入:
dir *.txt /s /n 目錄.txt
保存為XX.bat
然后雙擊運行即可在該文件夾下產生一個目錄.txt的文件,里面有你要的內容,不用VB.net
這個問題可以用注冊表解決。
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下的子鍵的默認鍵值的方法可以在網上搜索到。
這樣getOpenCommand("doc")就可以得到一個字符串(包括引號):
"C:\Program Files\Word\word.exe" "%1"
這里只需要用Spilt函數把C:\Program Files\Word\word.exe分離出來就好了
當前題目:vb.net文件后綴 vbnet fileopen
本文網址:http://vcdvsql.cn/article18/dopepdp.html
成都網站建設公司_創新互聯,為您提供網站排名、做網站、用戶體驗、網站建設、網站收錄、定制開發
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯