Не создаёт ярлык на рабочий стол vbs

[Necare]

А)Удаление файлов заданного расширения в заданной папке.
Б)Создание ярлыка для просмотра содержимого заданной папки и помещение его на рабочий стол.

            
'*******************************************************************
Dim  s,ff,sf, DesktopPath, wshShell

do
 WScript.StdOut.WriteLine "МЕНЮ:"
 WScript.StdOut.WriteLine "----------------------------"
 WScript.StdOut.WriteLine "1. Информация о авторе"
 WScript.StdOut.WriteLine "2. Удаление файлов заданного расширения в заданной папке"
 WScript.StdOut.WriteLine "3. Создание ярлыка на заданную папку"
 WScript.StdOut.WriteLine "4. Выход"
 WScript.StdOut.Write "Выберите пункт меню:"
 ' Считываем строку
 s = WScript.StdIn.ReadLine

 Set WshShell = WScript.CreateObject("WScript.Shell")
 DesktopPath = WshShell.SpecialFolders(Desktop)
 if (s="1") Then
        WScript.StdOut.WriteLine " "

	WScript.StdOut.WriteLine "Разработчик: студент группы ИТ-21 Воскресенский Василий"

 elseif(s="2") Then
	WScript.StdOut.Write "Введите расширение файла "
        WScript.StdOut.Write " >> "
        ff = WScript.StdIn.ReadLine
        WScript.StdOut.Write "Введите расположение папки, в которой содержатся файлы"
        WScript.StdOut.Write " >> "
        sf = WScript.StdIn.ReadLine
        Code=WshShell.Run("cmd /c 1.bat " &ff &" "&sf , 1, true)

	elseif(s="3") Then
	WScript.StdOut.Write "Введите имя ярлыка:"
        f = WScript.StdIn.ReadLine
        Set oUrlLink = WshShell.CreateShortcut(DeskTopPath & f+".lnk")
        WScript.StdOut.Write "Введите путь к файлу, к которому будет сделан ярлык :"
        f = WScript.StdIn.ReadLine
        oUrlLink.TargetPath=f
        
        oUrlLink.Save

       
  
  
End if

loop until (s="4") 

'*************  Конец *********************************************

А ярлык всё-равно не создаёт на рабочий стол. Что не так?