vb.net重命名文件夾，里面存在文件夾和文件，不用移動和復制的

Microsoft.VisualBasic.FileSystem.Rename(原文件夾完整路徑名稱，新的文件夾名稱）

創(chuàng)新互聯(lián)專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務(wù)，包含不限于網(wǎng)站建設(shè)、成都網(wǎng)站制作、平度網(wǎng)絡(luò)推廣、小程序制作、平度網(wǎng)絡(luò)營銷、平度企業(yè)策劃、平度品牌公關(guān)、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運營等，從售前售中售后，我們都將竭誠為您服務(wù)，您的肯定，是我們最大的嘉獎；創(chuàng)新互聯(lián)為所有大學生創(chuàng)業(yè)者提供平度建站搭建服務(wù)，24小時服務(wù)熱線：18980820575，官方網(wǎng)址：jinyejixie.com

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監(jiān)控路徑上的任一文件夾，當重命名時觸發(fā)事件。

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

FileSystemWatcher1.NotifyFilter = IO.NotifyFilters.DirectoryName Or IO.NotifyFilters.FileName‘監(jiān)控文件夾和文件。

FileSystemWatcher1.IncludeSubdirectories = True’監(jiān)控子文件夾

End Sub

Private Sub FileSystemWatcher1_Renamed(sender As Object, e As IO.RenamedEventArgs) Handles FileSystemWatcher1.Renamed

MsgBox(e.FullPath vbCrLf e.Name)

End Sub'捕獲新路徑

你監(jiān)控test不就好了，若要排除其他文件夾，IncludeSubdirectories 設(shè)為假，用多個FileSystemWatcher就行了，用數(shù)組或其他方式創(chuàng)建。

VB中重命名文件名

把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="[新文件名]"

另外提問的時候要注意把已知的條件和要達到的效果說清楚，“已知文件名的若干文件”到底是什么樣的文件名，有沒有什么規(guī)律？是否在同一文件夾下？或者是否已將文件名存放在一個字符串數(shù)組中？不說清楚別人怎么能幫你，只能給你一個實現(xiàn)的思路了

網(wǎng)站標題：vb.net文件夾重命名 vbs重命名文件夾
當前地址：http://jinyejixie.com/article40/dopcjho.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站導航、外貿(mào)建站、網(wǎng)站營銷、品牌網(wǎng)站制作、做網(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)