[اليوم السابع]

(12-11-20, 02:58 PM)سعود كتب : هل يلبي الرابط ماتريد؟

بس هو بيعمل الشورت كات في نفس المجلد مش علي سطح المكتب

---

(12-11-20, 08:15 PM)اليوم السابع كتب :

(12-11-20, 02:58 PM)سعود كتب : هل يلبي الرابط ماتريد؟

بس هو بيعمل الشورت كات في نفس المجلد مش علي سطح المكتب

هذا هو الكود بفك ضغط ملف بجانب المشروع ومن ثم بأخذ ملف من المجلد شورت كات علي الديسك توب ولكن بيضع الملف داخل نفس المجلد وليس سطح المكتب 

كود :

Dim archive As IArchive = ArchiveFactory.Open("Debug.rar")
       For Each entry In archive.Entries
           If Not entry.IsDirectory Then
               Console.WriteLine(entry.Key)
               entry.WriteToDirectory("C:\Program Files\king1", New ExtractionOptions With
                             {.ExtractFullPath = True, .Overwrite = True})
           End If
       Next
       Dim path As String = "C:\Program Files\king1\Debug\King Master 4.1.0.exe"
       Dim thing As New WshShell
       Dim shortcut As IWshShortcut
       If IO.File.Exists(path) = False And IO.Directory.Exists(path) = False Then
           MsgBox("path is not correct")
           Exit Sub
       End If
       shortcut = CType(thing.CreateShortcut(path & ".lnk"), IWshShortcut)
       shortcut.TargetPath = path
       shortcut.Save()