[Pytanie] Okno z wyborem modów.

[Adrian327d]

Witam chce zrobić Form (chyba już 5 ) w którym mam 3Buttony: Dodaj(Wybieram plik zip z modem . Po chwili pojawia się on w ListBox) Usuń(Zaznaczam mod na ListBox i klikam Usuń i on sie usuwa) Wyjdź(To umiem zrobić )

 

I tak. Jak zrobić żeby było tak:

 

Klikam Dodaj.

Wyświetla mi Okno Z wyborem zipów do skopiowania.

Po wybraniu klikam ok i te pliki kopiuje do folderu mods ( To umiem wystarczy prosty kod Kopiuj w buttonie ale nie wiem jak zrobić żeby kopiowało różne nazwy nie tylko te co wybiore.

Po kliknięciu ok nazwa zipa z modem pojawia sie na liście.

 

 

I usuwanie

Zaznaczam trzymając CTRL np: Mod1 i Mod2 i klikam usuń i usuwa je z folderu.

[Gość]

Dodawanie do ListBoxa

nazwaListBoxa.Items.Add("abc")

Okno z wyborem plików

Dim ofd As New OpenFileDialog()

ofd.ShowDialog()

ofd.FileName 'nazwa wybranego pliku

Kopiowanie

File.Copy(ofd.FileName, "abc.zip")

[Adrian327d]

Podkreśla mi ofd.FileName Może dlatego że mam wersje 2010 ? Opłaca mi sie pobrać 2012 ?

 

 

A i jak zrobić żeby nazwy były takie same jak nazwa zipa ? i do folderu kopiowały też całe nazwy zipa ?

 

 

Ogarnąłem. Zrobiłem że nie będzie sie dodawać własnych modów tylko moje ModPacki które dodają się do listy i pobierają z mojej stronki ale itak mi pomogłeś Dzięki i masz +

 

Dalej coś nie działa:

 

 

'Importsy'


'Nie dotykamy, najwyżej dopisujemy potrzebny nam Import'
Imports System.Net
Imports System.Net.Sockets
Imports System.Diagnostics
Imports System.Environment
Imports System.Runtime.InteropServices
Imports System.IO
Imports System.IO.Compression
Imports System.Threading


Public Class Form5
    Dim WithEvents WC As New WebClient
    Dim Form4 As New Form4


    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim Form4 As New Form4
        Try
            WC.DownloadFileAsync(New Uri("http://www.xaappx.ugu.pl/launcherminecraft/mody/OF162.zip"), "C:\Users\user\AppData\Roaming\.mcvrozax\Mods\MPN-Optifine162.zip")
            Form4.ListBox1.Items.Add("ModPack")
            Thread.Sleep(10)
            Close()
        Catch
            MsgBox("Błąd Podczas Łączenia Z Serwerem")
        End Try
    End Sub


    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        MsgBox("Paczka zawiera: Optifine, Rei's Minimap.")
    End Sub


    Private Sub WC_DownloadProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs) Handles WC.DownloadProgressChanged
        ProgressBar1.Value = e.ProgressPercentage
    End Sub
End Class
 

I w tym ListBoxie nic sie nie pojawia ;/ a jak coś dodam inaczej w tym samym oknie to to po restarcie znika

[Adrian327d]

A jak to zrobić to ja już nie wiem Jestem początkujący i takich cfg nie wiem jak dodać ;/