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)
Skript na vytvoreni zastupce slozky
- ITCrowd
- Tvůrce článků
-
Guru Level 13.5
- Příspěvky: 23612
- Registrován: březen 10
- Pohlaví:
- Stav:
Offline
Re: Skript na vytvoreni zastupce slozky
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 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.
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.
Zkusili jste to vypnout a zapnout? Problémy řeším pouze v tématech. Do SZ mi proto píšete zbytečně.
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem Vybíráme router
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem Vybíráme router
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
-
MS Outlook - Hromadné vytvoření složek Příloha(y)
od czTANIScz » 22 zář 2023 11:36 » v Kancelářské balíky - 6
- 3269
-
od czTANIScz
Zobrazit poslední příspěvek
23 zář 2023 22:34
-
-
-
Vytvoření skriptu na zálohu hry, kterou vytvářím. Příloha(y)
od xCloudGirl » 09 bře 2024 12:35 » v Vše ostatní (sw) - 11
- 1431
-
od MonikaVavrova
Zobrazit poslední příspěvek
11 bře 2024 22:24
-
-
- 3
- 2977
-
od Zabral68
Zobrazit poslední příspěvek
25 pro 2023 09:49
-
-
Outlook - složky v AJ, nelze vymazat Příloha(y)
od janakailana » 03 bře 2024 08:21 » v Kancelářské balíky - 6
- 1235
-
od janakailana
Zobrazit poslední příspěvek
03 bře 2024 11:16
-
-
-
Outlook - složky v AJ, nelze vymazat Příloha(y)
od huklorcz » 15 bře 2024 22:20 » v Kancelářské balíky - 5
- 1433
-
od mmmartin
Zobrazit poslední příspěvek
15 bře 2024 23:52
-
Zpět na “Windows 11, 10, 8...”
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 11 hostů