根据文件名自动建立文件夹

Ⅰ 批处理 按文件名自动创建多层文件夹并把文件放入该文件夹中

复制粘贴到记事本，另存为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文件，如果不存在，则创建一个空文件。

这样的操作不仅提高了工作效率，还使得文件管理变得更加自动化，为后续的数据处理和分析提供了便利。