NazwaSkrotu=“byle co” ,NazwaSkrotu=“programik.lnk” też działa (sprawdziłem), ale to rozszerzenie: “.lnk” jest zbyteczne bo to jest tylko tekst informacyjny który widzimy na ekranie.
(Jeżeli używasz zmiennej tekstowej, to przypisana do tej zmiennej wartość musi być w cudzysłowie.)
Wpisuje ścieżke w TextBox np. c:\program\ i tam mi się instaluje, po kliknięciu przycisku się instaluje i robi się ikona na pulpicie z pliku program.exe
Robił ikonę na pulpicie? Do czego ma być ten skrót i co to znaczy instalował z pliku data.rar. Program który podałeś rozpakowuje jedynie plik data.rar do podanego folderu i nie ma to nic wspólnego z instalacją. Może ten skrót ma być do jakiegoś tam programu instalacyjnego znajdującego się w pliku data.rar i po jego kliknięciu rozpocznie się właściwa instalacja? O to ci chodzi? No to należało by znać nazwę tego programu np. setup.exe i utworzyć do niego skrót na pulpicie.
Jeśli tak to w podanym przez Ciebie programie(unrarinstalator) na formie(Form3) umieść kontrolkę o nazwie: fkFx1
i zmień procedurę klawisza o nazwie dr_button np. na taką jak poniżej. Oczywiście przy innej zawartości pliku data.rar musisz użyć innej nazwy niż project1.vbp:
Kontrolkę FkFX.ocx najlepiej umieścić w katalogu:C\windows\system32 i zarejestrować ją uruchamiając plik rejestruj.bat.
Kontrolkę będzie można wówczas znaleźć: Project–>components pod nazwą: fullkoderFX
Private Sub dr_button1_Click()
Dim sciezka As String
Dim i As Integer
If fso.FileExists("data.rar") Then
UnRar.Decompress "data.rar", Form2.Dir1.Path & "\"
sciezka = Form2.Dir1.Path & "\" & "Project1.vbp"
If fso.FileExists(sciezka) Then
i = fkFx1.CreateShellLink("..\..\Pulpit", "instalator", sciezka, "")
End If
x = MsgBox("Pomyślnie zakończono kopiowanie plikow.", vbOKOnly, "Zakończono")
End
End If
End Sub