win7当前目录创建快捷方式
注:bat脚本使用ANSI编码
创新互联公司-云计算及IDC服务提供商,涵盖公有云、IDC机房租用、成都移动机房、等保安全、私有云建设等企业级互联网基础服务,服务热线:18980820575
第一种
@ 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 |
当前标题:win7当前目录创建快捷方式
标题来源:http://scyanting.com/article/gsjici.html