Create Shortcut instead of filecopy 1

[Bubbler]

I know this is possible using ShellLink but there must be something better, instead of FileCopy as shown in the example below, is it possible to CreateShortCut so to speak?

If Data.GetFormat(vbCFFiles) Then
Dim F As Variant
For Each F In Data.Files
Dim S As String, N As Long
N = UBound(arrFile) + 1
ReDim Preserve arrFile(N)
S = Dir$(F)
arrFile(N) = S
FileCopy F, List1.Tag & arrFile(N)
N = InStrRev(S, ".&quot
If N Then S = Left$(S, N - 1)
List1.AddItem S
Next
End If

 

[vb5prgrmr]

Search MS for "Hardlink" or "Hard Link" (forget which).

Good Luck

 

[Bubbler]

Found it, (HardLink) once again vb5 you da man, one more quick question, related to this, with a ListBox and a TextBox, how in the drag & drop function of the list box:
Private Sub List1_OLEDragDrop(Data As ..... and so on

if a file is dragged and dropped to the list box, Text 1 shows the path to that file. Make sense?

 

[vb5prgrmr]

This is one example of what I think you are getting at...

http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=28876&lngWId=1

Then again I may be reading you wrong because I am not sure if you are talking about the hardlink or the origional file.

Good Luck

 

[Bubbler]

Once again vb5prgrmr you hae helped me! Wish I could give you 2 stars. If you are ever in Las Vegas, I will buy you a cold one

 

[Bubbler]

(I was talking about the original file btw)