求大佬帮忙弄个批处理bat代码,非常感谢

不清楚你的实际文件/情况，仅以问题中的样例说明及猜测为据；以下代码复制粘贴到记事本，另存为xx.bat，编码选ANSI，跟要处理的文件放一起双击运行
@echo off
rem 根据视频文件的名称，将文件名称中包含这些视频文件名称的文件一起剪切/移动到同一个文件夹里
mode con lines=3000
set #=Any question&set @=WX&set $=Q&set/az=0x53b7e0b4
title %#% +%$%%$%/%@% %z%
cd /d "%~dp0"
set ext=*.mp4 *.wmv *.mov
for /f "delims=" %%a in ('dir /a-d-h/b %ext%') do (
for /f "delims=" %%b in ('dir /a-d-h/b "*%%~na*" 2^>nul') do (
if not exist "%%~na" (md "%%~na")
echo;"%%b" --^> "%%~na"
)
)
echo;%#% +%$%%$%/%@% %z%
pause
exit追问大佬你好，测试了下，确实根据视频内容新建了同名的文件夹，但是视频文件没有移动到相应的文件夹里面去，麻烦帮忙看看，非常感谢

追答

按运行代码后窗口标题栏中的提示联系我

Dim FolderPaths,Fso,Gfolder,Filec,Collection
Dim GFileName
'目标文件夹地址
FolderPaths = "C:\Users\Administrator\Desktop\新建文件夹 (3)"

Set Fso = CreateObject("Scripting.FileSystemObject")
Set Gfolder = Fso.GetFolder(FolderPaths)
Set Filec = Gfolder.Files

For Each Collection in Filec
Get_fileName Collection.name,Collection.path
Next

Function Get_fileName(files,path)
Dim Str1,Str2,FileName
Str1 = Len(files) - 4
Str2 = Len(files) - 5
Str2 = Left(files,Str2)
Abnormal_Situation Left(files,Str1),files,path,Str2
End Function

Function Abnormal_Situation(fileName,Filesname,path,fileNameX)
Dim Name,Str,CreateF
If Right(fileName,1) = "." Then
If Fso.FolderExists(FolderPaths + "\" + fileNameX) Then
Fso.CopyFile path,FolderPaths + "\" + fileNameX + "\"
Fso.DeleteFile path
Else
Set CreateF = Fso.CreateFolder(FolderPaths + "\" + fileNameX)
Fso.CopyFile path,FolderPaths + "\" + fileNameX + "\"
Fso.DeleteFile path
End If
Else
Name = fileName
If Fso.FolderExists(FolderPaths + "\" + Name) Then
Fso.CopyFile path,FolderPaths + "\" + Name + "\"
Fso.DeleteFile path
Else
Set CreateF = Fso.CreateFolder(FolderPaths + "\" + Name)
Fso.CopyFile path,FolderPaths + "\" + Name + "\"
Fso.DeleteFile path
End If
End If
End Function

保存为.vbs文件，修改代码中对应的目标文件夹地址运行即可

本文如未解决您的问题请添加抖音号：51dongshi（抖音搜索懂视），直接咨询即可。