win7当前目录创建快捷方式

注:bat脚本使用ANSI编码

创新互联公司-云计算及IDC服务提供商,涵盖公有云、IDC机房租用、成都移动机房、等保安全、私有云建设等企业级互联网基础服务,服务热线:18980820575

  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


当前标题:win7当前目录创建快捷方式
标题来源:http://scyanting.com/article/gsjici.html