- 帖子
- 57
- 主題
- 36
- 精華
- 0
- 積分
- 94
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office2013
- 閱讀權限
- 20
- 註冊時間
- 2014-9-10
- 最後登錄
- 2024-8-13
|
大家好
目前針對大量檔名修改
我已經可以將特定目錄下的檔案名稱抓到欄位A欄內
而接下來人工將B欄位對應的新名稱填入後
需要讓程式自己去修改檔案名稱為新名稱
想請問大家這是否有可參考的方式來處理
有點抓不著頭緒
謝謝- Sub listfiles()
- Dim oFSO As Object
- Dim oFolder As Object
- Dim oFile As Object
- Dim i As Integer
- Worksheets.Add().Name = "listfile" 'add new sheet and name to listfle
- Set oFSO = CreateObject("Scripting.FileSystemObject")
- Set oFolder = oFSO.GetFolder("D:\Desktop\New folder")
- Cells(1, 1) = "Existing File Name"
- Cells(1, 2) = "New File Name"
- i = 2
- For Each oFile In oFolder.Files
- Cells(i, 1) = oFile.Name 'file name
- i = i + 1
- Next oFile
- End Sub
|
|
發表於 2023-7-4 12:51
| 
發表於 2023-7-4 16:54
| 