VB6

2012-08-10 15 views
5

içinde bir EXE dosyası içine dosya gömmek VB6 program için gerekli olan tüm dosyaları yükleyecek bir kurulum programı yapmaya çalışıyorum.VB6

file="C:\users\admin\desktop\table.csv" 
Open file For Input As fnum 

EXE dosyası başka bir dizüstü bilgisayara yürütülemez Ancak hatasını "file not found" olsun:

Ben veri depolamak ve kullanma okumak için bir CSV dosyası kullanın.

So: Bu CSV belgesini .EXE dosyasına gömmek, böylece program herhangi bir Windows PC üzerinde çalışabilir mi?

+0

çok iyi nedenleri vardır * Hiç bunu denemek için değil * Bir kere kurulumda çok tuzaklar vardır Süreç ve kendi olmayan diğer uygulamaları mahvedebilirsin. Başka bir deyişle, programları yerleştiren programların kötü amaçlı yazılımlarda "düşürücü" olarak tetiklenmesi olasıdır. Orada zaten mükemmel bir ambalajlama araçları var, bir tane öğrenmek için bir dakikanızı ayırın. Kendi kendine ayıklanmanız gerekiyorsa, kötü amaçlı yazılımlara karşı yazılan kötü amaçlı yazılımlardan birinin "geçici olarak" yazılması yerine yaygın olarak kullanılan araçlardan birini kullanın. – Bob77

cevap

6
  1. Proje aç, eklentiler menü öğesi açmak Eklenti yöneticisi & çift yüklemek için VB6 Kaynak Editör tıklayın yakın yöneticisi.

  2. tıklayın Proje menü öğesi sonra altındaki yeni Kaynak Dosyası ekleyin. Bunun için bir dosya adı girin & kod dosyalarınızla dizinde kaydedin. Yeni İlgili Belgeler düğüm gelen Proje Gezgini ağaç çift tıklama XXX.RES itibaren

  3. .

  4. Seç sizin .csv için

  5. Gözat'ı açılır ve eklemek penceresindeki araç çubuğundan Özel Kaynak ekle, bunu 101

  6. \ ÖZEL olarak eklendi görmelisiniz Şimdi derleme zamanında exe içine gömülecek. Dosya değişirse, yeniden kaynağa ekleyin, giriş başına 64k limit var.

  7. zamanında kodunda yüklemek için:.

    strCSV = strconv(LoadResData(101, "CUSTOM"), vbunicode)

+0

merhaba mesajınız için teşekkürler .... csv dosyasını özel kaynak olarak ekledim ve programda kullandım ... ve tereyağı gibi koştum. Ama exe olarak yaptıktan sonra, metin kutusuna değer girmeyi denedim, o zaman gösterir: Çalışma zamanı hatası 9, "aralık dışı abonelik" ... Ben .csv dosyasının değerlerini depolamadığını düşünüyorum, bu yüzden Bu soruna herhangi bir çözüm biliyorum? – Santosh

+0

Kaynak yazılabilir değil, bunu yapmak istiyorsanız, yükleyin, diske yazın ve bu kopyayı kullanın - başka bir sorun yeni bir soru en iyi olur. –

+0

+1 Bu eklenti ile ilgili [VB6 dokümantasyon konularına] (http://msdn.microsoft.com/en-us/library/aa228672 (v = vs.60) .aspx) ilişkin bir link. – MarkJ