win7当前目录创建快捷方式-创新互联

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

@ 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

@ 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