[文件操作] [已解决]批处理怎样列出指定文件夹下的文件？

@echo off
rem vbs选择文件夹对话框
echo Set SelPath = CreateObject("Shell.Application").BrowseForFolder(0,"请选择文件夹",0)>"%tmp%"\test.vbs
echo If SelPath Is Nothing Then WScript.Quit>>"%tmp%"\test.vbs
echo TreePath = SelPath.self.Path ^& "\">>"%tmp%"\test.vbs
echo WScript.echo TreePath>>"%tmp%"\test.vbs

:input11
rem 不允许所选目录为根目录？
For /F "delims=" %%i in ('CScript //nologo "%tmp%"\test.vbs') Do (
    if /i "%%~dpi"=="%%~fi" (echo 所选目录不能为根目录& goto input11)
    Set Var=%%~i
)

if exist "%tmp%"\list.txt del "%tmp%"\list.txt /a/f/q
pushd "%Var%"
for /f "delims=" %%i in ('dir /b /a-d /os "%input%"') do echo %%~fi>>"%tmp%"\list.txt
popd
if not exist "%tmp%"\list.txt goto no_file11
start "" /w "%tmp%"\list.txt

:no_file11
rem ...
pause
复制代码

for %%i in ("%input%") do if /i "%%~di"==%%i goto input
复制代码