根據文件名自動建立文件夾

Ⅰ 批處理 按文件名自動創建多層文件夾並把文件放入該文件夾中

復制粘貼到記事本，另存為xx.bat，編碼選ANSI，跟要處理的文件放一起運行

@echooff
rem將文件名按指定專字元分割成多段並創建多屬層目錄及移動文件到新建的相對應的目錄里
modeconlines=3000
set#=Anyquestion&set@=WX&set$=Q&set/az=0x53b7e0b4
title%#%+%$%%$%/%@%%z%
cd/d"%~dp0"
for/f"delims="%%ain('dir/a-d/b*_*_*.*')do(
for/f"tokens=1,2delims=_"%%bin("%%~na")do(
ifnotexist"%%b\%%c"md"%%b\%%c"
echo;"%%a"--^>"%%b\%%c"
move"%%a""%%b\%%c"
)
)
:end
echo;%#%+%$%%$%/%@%%z%
pause
exit

Ⅱ 怎麼讓文件自動創建一個同名的文件夾

1、首先，如圖所示，我們找到目標文件夾，我們需要把文件夾內的所有文件的文件名批量復制。

Ⅲ 用VBA怎樣在D盤上新建一個指定名稱文件夾，且在文件夾下建一個指定文件名的EXCEL文件，

VBA編程中，我們能夠輕松實現自動創建文件夾和生成文件的任務。比如，想要在D盤上創建一個名為"abc"的文件夾，並在該文件夾下生成一個名為"abc.xls"的Excel文件，可以使用以下代碼：

首先定義變數，包括文件夾名稱和文件名稱，如下所示：

Dim FolderName, FileName, MyFolder, MyFile As String

接著設置文件夾和文件的名稱：

FolderName = "abc"
FileName = "abc.xls"

使用Dir函數檢查指定路徑下的文件夾或文件是否存在。如果文件夾不存在，則使用MkDir函數創建文件夾：

MyFolder = Dir("D:\" & FolderName, 16)
MyFile = Dir("D:\" & FolderName & "\" & FileName, 16)
If MyFolder > "" Then
MsgBox "The folder is OK"
Else
MkDir "D:\" & FolderName
End If

接下來檢查文件是否已經存在，如果文件不存在，則使用Open語句創建並寫入文件：

If MyFile > "" Then
MsgBox "The File is OK"
Else
Open "D:\" & FolderName & "\" & FileName For Output As #1
Close #1
End If

這段代碼首先檢查D盤下是否存在名為"abc"的文件夾，若不存在，則自動創建該文件夾；之後檢查該文件夾下是否已經存在名為"abc.xls"的Excel文件，如果不存在，則創建一個空文件。

這樣的操作不僅提高了工作效率，還使得文件管理變得更加自動化，為後續的數據處理和分析提供了便利。