以修改“C:\abc.txt"為bat為例。
公司主營(yíng)業(yè)務(wù):網(wǎng)站建設(shè)、網(wǎng)站制作、移動(dòng)網(wǎng)站開發(fā)等業(yè)務(wù)。幫助企業(yè)客戶真正實(shí)現(xiàn)互聯(lián)網(wǎng)宣傳,提高企業(yè)的競(jìng)爭(zhēng)能力。創(chuàng)新互聯(lián)是一支青春激揚(yáng)、勤奮敬業(yè)、活力青春激揚(yáng)、勤奮敬業(yè)、活力澎湃、和諧高效的團(tuán)隊(duì)。公司秉承以“開放、自由、嚴(yán)謹(jǐn)、自律”為核心的企業(yè)文化,感謝他們對(duì)我們的高要求,感謝他們從不同領(lǐng)域給我們帶來(lái)的挑戰(zhàn),讓我們激情的團(tuán)隊(duì)有機(jī)會(huì)用頭腦與智慧不斷的給客戶帶來(lái)驚喜。創(chuàng)新互聯(lián)推出登封免費(fèi)做網(wǎng)站回饋大家。
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
無(wú)法直接獲取,但可以采用變通的方法,思路:
把word轉(zhuǎn)換成二進(jìn)制流前先用變量把拓展名和后綴獲取到(例如 var filename = “xxxx.doc”)
定義一個(gè)int變量記錄二進(jìn)制流(word)的長(zhǎng)度。并將該變量轉(zhuǎn)成4字節(jié)的btye[]數(shù)組
將第一步中獲取到的文件名字符串轉(zhuǎn)成byte[]數(shù)組。
將字節(jié)按照: word文件byte[]+文件名byte[]+word文件長(zhǎng)度byte[](第二步)按照順序拼接成一個(gè)byte[]數(shù)組
還原:
1.首先讀取總byte[]的后4個(gè)字節(jié),以確定文件二進(jìn)制流的有效長(zhǎng)度(假設(shè)為L(zhǎng)).
2.將索引0至L 之間的字節(jié)數(shù)組按常規(guī)方式恢復(fù)成流.
3.將索引L至N-4之間的字節(jié)數(shù)組還原成字符串,即可獲得原文件名.
然后,愛咋咋地~~~~
創(chuàng)建一個(gè)文本文件,在其中輸入:
dir *.txt /s /n 目錄.txt
保存為XX.bat
然后雙擊運(yùn)行即可在該文件夾下產(chǎn)生一個(gè)目錄.txt的文件,里面有你要的內(nèi)容,不用VB.net
這個(gè)問(wèn)題可以用注冊(cè)表解決。
Function getOpenCommand(fileExt As String) as String
Dim fileType as String, openCommand as String
fileExt = "." + fileExt
'取得文件擴(kuò)展名在注冊(cè)表里的文件類型名稱
'比如.zip的類型名稱一般是zipfile
fileType = 讀取注冊(cè)表的classes_root下的子鍵(fileExt)的默認(rèn)鍵值
'取得打開這種文件的程序
openCommand = 讀取注冊(cè)表的classes_root下的子鍵(fileType + "\shell\open\command")的默認(rèn)鍵值
Return getOpenCommand
End Function
讀取注冊(cè)表的HKEY_CLASSES_ROOT下的子鍵的默認(rèn)鍵值的方法可以在網(wǎng)上搜索到。
這樣getOpenCommand("doc")就可以得到一個(gè)字符串(包括引號(hào)):
"C:\Program Files\Word\word.exe" "%1"
這里只需要用Spilt函數(shù)把C:\Program Files\Word\word.exe分離出來(lái)就好了