Yardımcı paket programlar olmadan kendi setup(ön yüklemenizi) oluşturun.

Öncelikle Formumuza Şu Nesneleri Ekleyip Aşağıda bulunan resim gibi düzenleyin.

Eklenecekler :

• 6 adet CommandButon
• 1 Adet textbox
• 1 Adet DriveListBox
• 1 Adet DirListBox
• 1 Adet Label (Label en üstte Tanıtım içindir zorunlu değildir)

Değişkenleri tanımlayın(en üst kısma form load kısmına değil)

Dim path As String
Dim oldpath As String
Dim folder As Boolean

Formumuz Aşağıdaki gibi olsun:



Programımız açıldığında sadece logomuz ve Yükle Kaldır Çıkış butonları görünecektir yani formumuz çalıştığında şu şekil görünecektir



dirlistboxlar kullanıcıya görünmeyecetir.Bunun için de form load kısmına:

Private Sub Form_Load()

Dir1.Visible = False
Drive1.Visible = False
Command4.Visible = False
Command5.Visible = False
Command6.Visible = False
End Sub

yazınız
Öncelikle Yükle Butonundan İşe Başlayalım içine

Dir1.Visible = True
Drive1.Visible = True
Command4.Visible = True
Command5.Visible = True
Command6.Visible = True


Text1.Text = "Lütfen Önce Klasör Oluşturun Sonra İstenilen Hedefe Yükleyin"

Kullanıcı yükle butonuna bastığı zaman yüklemesi gereken klasör için dirlistboxlar ve Klasör Oluştur İptal Devam ET Tuşları(command 4,5,6) Görünür Olacaktır
Klasör Oluştur butonuna gelelim

If folder = True Then Exit Sub

If folder = False Then Let folder = True

If folder = True Then

path = Dir1.path
oldpath = Dir1.path


FileSystem.MkDir path + "Program Adı"
Dir1.Refresh
End If

Text1.Text = "PROGRAM ADI adında bir klasör Oluşturuldu"

Eğer folder (yani Klasör) varsa yükleme devam etsin ancak klasör yoksa yeni bir Programdı adında kalsörü dirlistboxta seçilen bölgeye oluştursun ve listeyi yenilesin
Gelelim Devam et yani yüklemeyi ilerlet butonuna

Dim fso, txtfile


If folder = False Then
Dim res
res = MsgBox("Öncelikle Yeni Bir Klasör Oluştur", vbOKOnly + vbCritical)
Exit Sub
End If


path = Dir1.path + "Program Adı"
'dosyaların kopyalanacağı dizinler
FileSystem.FileCopy "Dosyayı burdan al örnek program.exe", path + "Buraya ver örnek program.exe"
FileSystem.FileCopy "Dosyayı Burdan Al Tam yol adı", "Buraya ver"
FileSystem.FileCopy "Dosyayı Burdan Tam Yol Adı", "Buraya ver"
FileSystem.FileCopy "Dosyayı Burdan Tam Yol Adı", "Buraya ver"

Set fso = CreateObject("Scripting.FileSystemObject")
    Set txtfile = fso.CreateTextFile("C:geriyukle.txt", True)
    txtfile.Write (oldpath)
    txtfile.Close
Text1.Text = "Yukleme Başarılı"

Eğer Kullanıcı klasörü seçmiş yükleme devam eder. Eğer klasör oluşturmamış ise kullanıcıya oluşturması için bir uyarı verir. Burda programınızın nerde alınıp nereye kopyalacağını belirtiniz.(Otomatik patch yükleme ya da günceleştirme işlemlerindede kullanabilirsiniz). Program kendiliğinden geri yükleme ayarlarını oluşturan bir metin (.txt) oluşturacaktır.

Setup Dosyanızı başarıyla kurdunuz...

Kolay Gelsin...