Skript na vytvoreni zastupce slozky

[ajr]

Zdravim,

o neco jsem se pokousel v Pythonu, ale jelikoz jsem vylozenej antitalent, tak jsem nepochodil..to ani s ChatGPT
Ptal jsem se ruzne a nikde jsem nedostal zadnou odpoved...

Potrebuji relativne jednoduchy skript na vytvoreni zastupce slozky (Folder Shortcut) a jeji presun do specificke lokace (C:\ARTSPACE\WORKSPACE).

Jak to ma fungovat:
Oznacim slozku, zmacknu klavesu, ktera spusti skript

Rad bych ocenil sebemensi pomoc, predem velice dekuji

(Windows 11 Pro)

[Reklama]

[ITCrowd]

Ahoj,
s tím ti nepomůžu. Ale můžu ti nabídnout skript ve vbs. Funguje tak, že chytneš složku myší a pustíš ji na ikonu skriptu.

Kód: Vybrat vše

'******************************************************
'*  Script vytvoří link na adresář metodou drag&drop  *
'*    Link vytvoří v adresáři v proměnné Cesta        *
'*                                                    *
'*           vytvořeno pro PC-HELP                    *
'*            Etienn@Script v. 1.0                    *
'******************************************************

Option Explicit
Dim objArgs, I, Path, Nazev, Shell, link, Cesta

Set objArgs = WScript.Arguments
For I = 0 to objArgs.Count - 1
   Path = objArgs(I)
Next

Nazev = Left(Path, InStrRev(Path, "\"))
Nazev = Replace(Path, Nazev, "")

Set Shell = CreateObject("WScript.Shell")
Cesta = "C:\ARTSPACE\WORKSPACE\"     'Zde zadej adresář, kde má být link
Set link = Shell.CreateShortcut(Cesta & Nazev & ".lnk")
link.Description = "vbs shortcut"  'zde komentář k linku
link.TargetPath = Path
link.Save

Set objArgs = Nothing
Set Shell = Nothing
Set link = Nothing

Kód zkopíruj a vlož do notepadu (ne word a podobně!). Ulož s příponou .vbs. Pak stačí myší chytit libovolnou složku a pustit ji na ten skript - drag&drop.