Automatically Make A Shortcut.

[allycol93]

Hi there. This will be a long post but please keep reading and please help me.

What I have so far:

I have a file explorer consisting of the Drive, Folder and File ListBox and a TextBox.

The Drive, Folder and File ListBoxes make it easy to browse for files and the TextBox displays the selected files path.

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
txtPath.Text = File1.Path & "\" & File1.FileName
End Sub

What i want to do next is when File1 is gets Double Clicked there is a shortcut (*.lnk) file automatically generated in the:

App.Path & "\" & File1.FileName

I do not know the code to make the shortcut file. Hopefully someone does.

Also i would like when the return key gets pressed within the File ListBox is the file gets opened by it's preffered application. e.g. File1.DOC gets opened with microsoft word and File1.FRM gets opened with Visual Basic. I do not know the code for this.


Thanks in advanced.
Alistair.

[si_the_geek]

For creating a shortcut, search our Codebank - VB6 forum. I'm pretty sure there have been good examples posted.

For opening files in their default programs use ShellExecute - see the "Working with other programs" section of our Classic VB FAQs (in the FAQ forum) for an explanation and examples.

[allycol93]

Thanks si_the_geek. Great info.