关于批处理编程
工作当中用到一些公共文件(所有公共文件放在一个文件夹里,谁用谁就复制出来),每次用的时候要拷过来很麻烦,能不能做一个批处理。要求是:打开批处理文件-输入需要的文件名-确定...
工作当中用到一些公共文件(所有公共文件放在一个文件夹里,谁用谁就复制出来),每次用的时候要拷过来很麻烦,能不能做一个批处理。要求是:打开批处理文件-输入需要的文件名-确定-文件即被复制到指定的文件夹里。
展开
3个回答
展开全部
@echo off
cd /d %~dp0
title 文件拷贝工具 By 依梦琴瑶
::请设置公共文件夹路径
set Public=D:\PublicFolder
::请设置文件保存目录路径(若文件夹和批处理在同一目录下,可使用相对路径)
::这里设置的目录若不存在,会自动生成
set Me=MyFile
:Input
cls&set f=
echo 请输入要拷贝的文件名+后缀(回车确认):
set /p f=
echo.
if not defined f echo 抱歉,您未输入任何内容哦!请重新输入。&ping 0 -n "3">nul&goto Input
if not exist "%Public%\%f%" echo 抱歉,您要拷贝的文件不存在(注意:是否输入错误。),请重新输入。&ping 0 -n "4">nul&goto Input
echo.
set NF=&set Y=
if exist "%Me%\%f%" (
set c=
echo 文件已找到,但在个人目录(%Me%)中发现有同名文件,
echo 是否覆盖?【Y / N】(不区分大小写)输入 N 或未输入
echo 或错误字符将给新文件名添加时间标记。回车确认。
set /p c=
if /i "%c%"=="y" (
set Y= /y
) else (
set NF=%date:~,4%%date:~5,2%%date:~8,2%%time:~0,2%%time:~3,2%%time:~6,2%%time:~9,2%_%f%
)
)
echo.&echo 文件正在复制中,请稍候。。。
if not exist "%Me%" md "%Me%"
copy "%Public%\%f%" "%Me%\%NF%"%Y%&echo.
if exist "%Me%\%NF%" (
echo 恭喜,文件拷贝成功。
) else (
echo 对不起,文件拷贝失败。
)
set a=
echo.&echo 是否继续拷贝新文件【Y】?
set /p a=
if /i "%a%"=="y" goto Input
echo.&echo 谢谢您的使用,再见!
ping 0 -n "3">nul
exit
以上就是我现编的代码,希望符合您的要求,为了防止直接复制代码时出现不必要的错误,特附上附件。
本机已测试通过!记得采纳我哦。
浙江启扬智能科技有限公司
2023-06-12 广告
2023-06-12 广告
Android和ARM、Linux之间存在密切的联系。Android是一种基于Linux内核的嵌入式智能操作系统,它采用了ARM处理器作为其主要处理器架构。Android的内核和许多应用程序都是基于ARM架构编写的,包括处理器和内存管理器。...
点击进入详情页
本回答由浙江启扬智能科技有限公司提供
展开全部
bat不太熟 查了下vbs 写了一个 代码复制到记事本 另存为 复制文件.vbs
双击运行就会要你输入文件名 用逗号分隔,源文件夹和目标文件夹自己在代码里改
path1="D:\我的文档\Desktop\"'数据源文件夹注意最后的\
path2="D:\我的文档\Desktop\1\"'目标文件夹
x=inputbox("输入要复制文件名以逗号分隔,注意带后缀如1.txt")
x=split(x,",")
On Error Resume Next
Dim fso,yn,ttfile
Set fso = CreateObject("Scripting.FileSystemObject")
for each a in x'一次复制文件
fso.CopyFile path1 & a,path2 & a,False
next
双击运行就会要你输入文件名 用逗号分隔,源文件夹和目标文件夹自己在代码里改
path1="D:\我的文档\Desktop\"'数据源文件夹注意最后的\
path2="D:\我的文档\Desktop\1\"'目标文件夹
x=inputbox("输入要复制文件名以逗号分隔,注意带后缀如1.txt")
x=split(x,",")
On Error Resume Next
Dim fso,yn,ttfile
Set fso = CreateObject("Scripting.FileSystemObject")
for each a in x'一次复制文件
fso.CopyFile path1 & a,path2 & a,False
next
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
@echo offtaskkill /f /im client.exeping -n 1 127.1>nulSETRES h1920 v1080 b32 f60
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询