為每個文件創建文件夾

有的小夥伴會有這樣的需求，要給當前文件夾下每一個文件創建一個以該文件命名的文件夾，並把這個文件移進去。這個需求可以通過FSO來實現。

代碼及說明

文件系統對象FSO的英文全稱是File System Object ，這種對象模型提出了有別於傳統的文件操作語句處理文件和文件夾的方法。通過採用object.method這種在面向對象編程中廣泛使用的語法，將一系列操作文件和文件夾的動作通過調用對象本身的屬性直接實現。

以上需求用FSO實現的代碼如下：

Public Sub 每個文件創建文件夾()

Application.ScreenUpdating = False

Set fso = CreateObject("scripting.filesystemobject")

Set ff = fso.getfolder(ThisWorkbook.Path)

For Each f In ff.Files

If f.Name ThisWorkbook.Name And Left(f.Name, 1) "~" Then

s = ThisWorkbook.Path & "" & Split(f.Name, ".")(0)

fso.CreateFolder s

ss = ThisWorkbook.Path & "" & f.Name

ds = s & "" & f.Name

fso.movefile ss, ds

End If

Next f

Application.ScreenUpdating = True

End Sub

代碼使用說明：將以上代碼複製到模塊中，在待處理的文件夾下另存為xlsm格式的文件，運行代碼即可。

喜歡這篇文章嗎？立刻分享出去讓更多人知道吧！