win7 当前目录创建快捷方式

Posted 2020-10-03

注：bat脚本使用ANSI编码

1. 第一种

@ echo off cd /d %~dp0 set onepath=%cd% echo -----------------create file and cat---------------------------- for /l %%i in (1 1 10) do echo "this is test for test-%%i" >>testfile.txt type testfile.txt tree echo -----------------create file link---------------------------------- set sourcefile=%onepath%\testfile.txt echo [InternetShortcut] >>testfile.url   echo URL="%sourcefile%" >>testfile.url echo IconIndex=0 >> testfile.url echo IconFile="%onepath%\testfile.txt%" >>testfile.url echo %errorlevel% pause

2.第二种

@ echo off color 0a set onepath=%cd% echo -----------------create file and cat---------------------------- for /l %%i in (1 1 10) do echo "this is test for test-%%i" >>testfile.txt type testfile.txt tree echo -----------------create file link---------------------------------- ::设置程序或文件的完整路径（必选） set sourcefile=%onepath%\testfile.txt   ::设置快捷方式名称（必选） set LnkName=testfile   ::设置程序的工作路径，一般为程序主目录，此项若留空，脚本将自行分析路径 ::set WorkDir=   ::设置快捷方式显示的说明（可选） set Desc=测试   (echo Set WshShell=CreateObject("WScript.Shell"^) echo strDesKtop=WshShell.SpecialFolders("%onepath%"^) echo Set oShellLink=WshShell.CreateShortcut("%onepath%" ^&"\%LnkName%.lnk"^) echo oShellLink.TargetPath="%sourcefile%" echo oShellLink.WorkingDirectory="%onepath%" echo oShellLink.WindowStyle=1 echo oShellLink.Description="%Desc%" echo oShellLink.Save)>makelnk.vbs makelnk.vbs del /f /q makelnk.vbs ::exit if %errorlevel%==0 (     echo create file link success！ ) echo ---------------------------------------create dir link------------------------------- tree %onepath% pause

3. 举例文件与文件夹均创建快捷方式

@ echo off title bat to dir or file test color 0a cd /d %~dp0 set onepath=%cd% echo -----------------------date：%date%----------------------------- echo %date% >> testfile.txt echo -----------------------time：%time%----------------------------- echo %time% >> testfile.txt echo -----------------create file and cat---------------------------- for /l %%i in (1 1 10) do echo "this is test for test-%%i" >>testfile.txt type testfile.txt echo -----------------create dir testdir---------------------------------- md testdir  tree echo ------------------move testfile to testdir-------------------------- move testfile.txt %onepath%\testdir echo ------------------rename testdir testdir1------------------------ move testdir testdir1 echo -------------------cd testdir1---------------------------------- cd %onepath%\testdir1 echo ------------------rename testfile.txt testfile1.txt------------------ move testfile.txt testfile1.txt echo -------------------copy testfile1.txt testfile1.bak------------------ copy testfile1.txt testfile.bak echo --------------------move testdir1/testfile1.txt to %onepath%-------- move testfile1.txt %onepath% echo ------------------cd %onepath%----------------------------- cd %onepath% echo ------------------list %onepath%--------------------------- tree %onepath% echo -------------------create link-------------------------------------- ::set var delay setlocal EnableDelayedExpansion for %%a in (testfile1.txt testdir1) do (     echo "star create link" (echo Set WshShell=CreateObject("WScript.Shell"^)     echo strDesKtop=WshShell.SpecialFolders("%onepath%"^)     echo Set oShellLink=WshShell.CreateShortcut("%onepath%" ^&"\%%a-test.lnk"^)     echo oShellLink.TargetPath="%onepath%\%%a"     echo oShellLink.WorkingDirectory="%onepath%"     echo oShellLink.WindowStyle=1 echo oShellLink.Save)>makelnk.vbs     makelnk.vbs if %errorlevel%==0 (         echo "create  %%a link success！"     ) ::type makelnk.vbs del /f /q makelnk.vbs ) if %errorlevel%==0 (     echo "create  all link success！" ) echo -------------list %onepath% structure--------- tree %onepath% echo -------------dir %onepath%--------- dir %onepath% pause

本文出自 “小叶” 博客，请务必保留此出处http://muyuluo.blog.51cto.com/3246561/1958441