SendTo: MyFolder (create shortcut)

[gkalli2]

3erei kapoios an ginetai na dhmiourghsw ena shortcut pou na dhmiourgei shortcut?

 

Opws px exei sto SendTo "Desktop (create shortcut)"

Egw 8elw anti gia to Desktop na stelnw shortcut s'ena fakelo pou orizw egw.

 

Any thoughts?

[alexnikou]

ftiaxneis mia syntomeusi (shortcut) tou fakelou pou theleis kai thn kaneis epikolisi sto fakelo [C:\Documents and Settings\''onoma''\SendTo] to send to einai krifos fakelos :arrow:

 

olla ayta sta xp alla kai stis alles ekdosis einai kati paromoio!!!

[gkalli2]

Thanks gia to reply file alla milame gia kati diaforetiko.

 

8elw ena drop target sto SendTo pou na dhmiourgei shortcuts (oxi na kanei copy) ki exw thn ypopsia oti 8elei shell scripting. :roll:

[damdim]

Μετά από λίγο ψάξιμο βρήκα το παρακάτω script το οποίο κάνει παρόμοια δουλειά αλλά για special folders.

http://billsway.com/vbspage/vbsfiles/SendToXasShortcut.zip

 

Αφού πειραματίστηκα λίγο κατάφερα να κάνω αυτό που θες με τον παρακάτω κώδικα:

 

>
Option Explicit
Dim ws, fso

Set ws = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")


Dim Tgt, Src, cnt
Src = WScript.Arguments.Item(cnt)
With ws.CreateShortcut("C:\test\" & fso.GetBaseName(Src) & ".lnk")
.TargetPath = Src
.Save
End With

 

Κάνε copy/paste το παραπάνω σε ένα txt και μετονομασέ το σε .vbs

Μετά κάνε ένα shortcut αυτού του αρχείου στο φάκελο send to.

Εννοείται ότι αλλάζεις το C:\test με ότι φάκελο θες.

 

Είμαι τελείως άσχετος σε vbscript και δεν θα έχω καμιά ευθύνη για οποιοδήποτε πρόβλημα δημιουργηθεί...

[gkalli2]

Na'sai kala damdim

8a to dokimasw molis paw spiti giati twra eimai sthn douleia

 

Update:

Leitourgei mia xara apo oti blepw. Eida kai to original,den fainetai na eisai toso asxetos telika

Thanks!!!

 

Yparxei periptwsh me kapoia tropopoihsh na leitourgei gia multiple selections?