Private Sub command1_click()

公司主營業(yè)務(wù):網(wǎng)站設(shè)計制作、成都網(wǎng)站設(shè)計、移動網(wǎng)站開發(fā)等業(yè)務(wù)。幫助企業(yè)客戶真正實現(xiàn)互聯(lián)網(wǎng)宣傳,提高企業(yè)的競爭能力。成都創(chuàng)新互聯(lián)是一支青春激揚、勤奮敬業(yè)、活力青春激揚、勤奮敬業(yè)、活力澎湃、和諧高效的團隊。公司秉承以“開放、自由、嚴謹、自律”為核心的企業(yè)文化,感謝他們對我們的高要求,感謝他們從不同領(lǐng)域給我們帶來的挑戰(zhàn),讓我們激情的團隊有機會用頭腦與智慧不斷的給客戶帶來驚喜。成都創(chuàng)新互聯(lián)推出綏寧免費做網(wǎng)站回饋大家。
Dim d As String
d = Dir("c:\abc\*.txt")
Do Until d = ""
Name "c:\abc\" d As "c:\abc\" Text1.Text d
d = Dir
Loop
End Sub
以上代碼是把"c:\abc"目錄的所有txt的文件名前面插入text1的內(nèi)容。如果只想給最新創(chuàng)建的文件添加,那么可以在循環(huán)中用FileDateTime("c:\abc\" d)檢測文件的時間,找出最新的那個即可。
以修改“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
很簡單的幾部操作
打開VS選中程序 解決方案"學(xué)生信息管理系統(tǒng)"
選中后 選擇VS菜單欄文件 "學(xué)生信息管理系統(tǒng) "另存為
然后選擇路徑 把解決方案"學(xué)生信息管理系統(tǒng)" 保存到 學(xué)生信息管理系統(tǒng) 文件夾目錄下
這樣就可以了
Microsoft.VisualBasic.FileSystem.Rename(原文件夾完整路徑名稱,新的文件夾名稱)
Microsoft.VisualBasic.FileSystem.Rename("D:\1", "D:\2\1")‘當路徑不對時會把原文件夾剪切到“D:\2\”下面文件夾名稱不變
Microsoft.VisualBasic.FileSystem.Rename("D:\1", "D:\2\2")")‘當路徑不對時會把原文件夾剪切到“D:\2\”下面文件夾名稱 更改為 2
Microsoft.VisualBasic.FileSystem.Rename("D:\1", "D:\2")’當路徑相同時只改文件夾名稱 不移動文件
希望能幫到你
文章名稱:vb.net改文件名,VB文件名
轉(zhuǎn)載注明:http://chinadenli.net/article15/dsipjdi.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供建站公司、自適應(yīng)網(wǎng)站、、動態(tài)網(wǎng)站、定制網(wǎng)站、域名注冊
聲明:本網(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)