Question

实现U盘内容自动复制的vbs程序

当打开这个程序，自动复制本地磁盘上指定类型文件（“例：*.doc”）到U盘123文件夹下。

Answer 1

vbs我还不会，要用bat给你写一个吧

追问

也行啊！多谢啦写完就采纳你！

追答

@echo off
setlocal enabledelayedexpansion
for /f "tokens=*" %%i in ('fsutil fsinfo drives') do (
set a=%%i&set a=!a:~5!
for %%j in (!a!) do (
for /f "delims=" %%k in ('fsutil fsinfo drivetype %%j') do (
set b=%%k&set b=!b:~6!
if !b!==可移动驱动器 (
set c=%%k&set c=!c:~0,3!
for %%l in (C D E F) do (
rem “上面括号内C D E F”是本地磁盘盘符，可根据实际情况修改
if exist %%l: (
echo 正在搜索%%l:\中的文件并复制至!c!中……
for /f "delims=" %%m in ('dir /a /b /s %%l:\*.doc') do (
echo d|xcopy /c /f "%%m" !c!123
)
echo.& echo.
))))))