Microsoft.VisualBasic.FileSystem.Rename(原文件夾完整路徑名稱,新的文件夾名稱)
我們提供的服務(wù)有:做網(wǎng)站、成都做網(wǎng)站、微信公眾號(hào)開(kāi)發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認(rèn)證、廊坊ssl等。為千余家企事業(yè)單位解決了網(wǎng)站和推廣的問(wèn)題。提供周到的售前咨詢和貼心的售后服務(wù),是有科學(xué)管理、有技術(shù)的廊坊網(wǎng)站制作公司
Microsoft.VisualBasic.FileSystem.Rename("D:\1", "D:\2\1")‘當(dāng)路徑不對(duì)時(shí)會(huì)把原文件夾剪切到“D:\2\”下面文件夾名稱不變
Microsoft.VisualBasic.FileSystem.Rename("D:\1", "D:\2\2")")‘當(dāng)路徑不對(duì)時(shí)會(huì)把原文件夾剪切到“D:\2\”下面文件夾名稱 更改為 2
Microsoft.VisualBasic.FileSystem.Rename("D:\1", "D:\2")’當(dāng)路徑相同時(shí)只改文件夾名稱 不移動(dòng)文件
希望能幫到你
VB6中執(zhí)行“文件”菜單中的“Form1另存為”(Form1代表你當(dāng)前窗體名稱),或者在工程資源管理器窗口,右擊要重命名的窗體,在彈出的快捷菜單中執(zhí)行“Form1另存為”(Form1代表你當(dāng)前窗體名稱)。
窗體文件重命名后,一定要保存工程文件
把D:\test\目錄下的所有jpg文件重命名為pic###.jpg的代碼:
Dim i As Integer
i = 1
Set fs = CreateObject("scripting.filesystemobject")
Set fd = fs.GetFolder("d:\test")
For Each f In fd.Files
If LCase(f.ShortName) Like "*.jpg" Then
f.Name = "pic" Format(i, "000") ".jpg"
i = i + 1
End If
Next
如果文件名已確定,可以用Set f=fs.GetFile("[完整路徑和文件名]"),然后用f.Name="[新文件名]"
另外提問(wèn)的時(shí)候要注意把已知的條件和要達(dá)到的效果說(shuō)清楚,“已知文件名的若干文件”到底是什么樣的文件名,有沒(méi)有什么規(guī)律?是否在同一文件夾下?或者是否已將文件名存放在一個(gè)字符串?dāng)?shù)組中?不說(shuō)清楚別人怎么能幫你,只能給你一個(gè)實(shí)現(xiàn)的思路了
名稱欄目:vb.net文件重命名6,vb怎么重命名
當(dāng)前路徑:http://m.newbst.com/article34/hseese.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站制作、靜態(tài)網(wǎng)站、商城網(wǎng)站、網(wǎng)站建設(shè)、網(wǎng)站維護(hù)、手機(jī)網(wǎng)站建設(shè)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)