Win7 current directory creation shortcut
Note: bat scripts use ANSI encoding
First kind
@ 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
two。 The second kind
@ 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 the full path to the program or file (required)
Set sourcefile=%onepath%\ testfile.txt
:: set shortcut name (required)
Set LnkName=testfile
:: set the working path of the program, which is usually the main directory of the program. If this item is left blank, the script will analyze the path by itself.
:: set WorkDir=
:: set the description of the shortcut display (optional)
Set Desc= test
(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. Example files and folders both create shortcuts
@ 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 an 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
