[Казбек]

надо через CMD создать ярлыки всех файлов хранящихся в папки D:\App. »

В cmd в человеческом виде, без гибридов сделать это не получится. Но есть простое решение тоже с консолью: NirCmd Command Reference - shortcut.

Есть так же вариант с MKLink.

[Svnkill]

В cmd в человеческом виде, без гибридов сделать это не получится. »

VBS Можно?

[Казбек]

VBS Можно? »

How to create a desktop shortcut with the Windows Script Host

Вариант на PowerShell:

Код:

$shortcutPath = "C:\Users\User\Documents\Apps"
$wshShell = New-Object -ComObject "WScript.Shell"
Get-ChildItem (Join-Path $shortcutPath "*.exe") | ForEach-Object {
  $lnkFilename = Join-Path $shortcutPath ("{0}.lnk" -f [IO.Path]::GetFilenameWithoutExtension($_.FullName))
  $shortcut = $wshShell.CreateShortcut($lnkFilename)
  $shortcut.TargetPath = $_.FullName
  $shortcut.Save()
}

"C:\Users\User\Documents\Apps" - путь к вашей папки
"*.exe" - маска с нужными типами файлов

Пример выполнения

[megaloman]

vbs

Код:

inDir = "Z:\App"

Set FSO = CreateObject("Scripting.FileSystemObject")
Set oShell = CreateObject("WScript.Shell")
DeskTopPath = oShell.SpecialFolders("AllUsersDesktop")

Set Folds = FSO.GetFolder(inDir)
Set Files = Folds.Files

For Each jf In Files
    Set oShortCut = oShell.CreateShortcut(DeskTopPath + "\" + jf.Name + ".lnk")
    oShortCut.TargetPath = jf.Path
    oShortCut.Save
Next

Использовал источник

[Woodskil]

Линк на файл:
mklink "C:\Users\Control\Desktop\2.lnk" "C:\Users\Control\Desktop\1.exe"

Линк на папку:
mklink /D "C:\Users\Control\Desktop\folder11.lnk" "C:\Users\Control\Desktop\11"

[Vadikan]

Woodskil, символическая ссылка - не то же самое, что ярлык. Ярлык - это файл с атрибутами ярлыка, а mklink делает ссылку в файловой системе. Даже создав ее с расширением lnk, в свойствах не будет то же самое, что при создании ярлыка.