Problem mit meinem Programm (Installer))

Question

Hey!

Ich benutze das Programm Small Basic um einen Installer für mein anderes Programm zu bauen. Aber da ist ein kleines Problem.

Das ist mein Code:

TextWindow.Title = "Setup NoobHelper 0.1"


Sprachenerkennung:
TextWindow.WriteLine("Select your language (Deutsch or English):")
TextWindow.WriteLine("Wähle deine Sprache (Deutsch oder English):")
TextWindow.WriteLine("")
SPRACHE:
TextWindow.ForegroundColor = "Blue"
Sprache = TextWindow.Read()
TextWindow.ForegroundColor = "White"
TextWindow.WriteLine("")
If (Sprache = "Deutsch") Then
  TextWindow.Clear()
  Goto InstallationDE
Else
  
  If (Sprache = "English") Then
    Goto InstallationEN
  Else
  TextWindow.WriteLine("The specified language is not available. Please specify another one.")
  TextWindow.WriteLine("Die eingegebene Sprache ist nicht verfügbar. Geben sie bitte eine andere an.")
  Goto SPRACHE
  EndIf
EndIf

InstallationDE:
TextWindow.WriteLine("Willkommen im Setup von NoobHelper! Schreibe bitte in die nächste Zeile den  KORREKTEN und vollständigen Installationspfad.")
TextWindow.WriteLine("Vergiss das \ am Ende nicht.")
TextWindow.ForegroundColor = "Blue"
InstallPfadA = TextWindow.Read()
TextWindow.ForegroundColor = "White"
TextWindow.WriteLine("NoobHelper 0.1 wird jetzt installiert...")
TextWindow.WriteLine("")
File.CreateDirectory(InstallPfadA + "NoobHelper\")
InstallPfadB = InstallPfadA + "NoobHelper\"
TextWindow.WriteLine(InstallPfadB)
TextWindow.WriteLine("Bitte kopiere die oben gezeigte Zeile InstallPfad die nächste.")
TextWindow.ForegroundColor = "Blue"
InstallPfadC = TextWindow.Read()
TextWindow.ForegroundColor = "White"
File.CopyFile(Program.Directory + "NoobHelper 0.1.exe", InstallPfadC + "NoobHelper\")
File.CopyFile(Program.Directory + "SmallBasicLibrary.dll", InstallPfadC + "NoobHelper\")
File.CopyFile(Program.Directory + "NoobHelper 0.1.pdb", InstallPfadC + "NoobHelper\")
TextWindow.WriteLine("NoobHelper 0.1 wurde erfolgreich installiert.")
TextWindow.Pause()
Program.End()


InstallationEN:
TextWindow.WriteLine("Welcome to the setup of NoobHelper! Please enter in the following line the   CORRECT install path for Noobhelper.")
TextWindow.WriteLine("Don't forget the \ at the end.")
TextWindow.ForegroundColor = "Blue"
InstallPfad = TextWindow.Read()
TextWindow.ForegroundColor = "White"
TextWindow.WriteLine("NoobHelper 0.1 will now install...")
File.CreateDirectory(InstallPfad + "NoobHelper\")
File.CopyFile(Program.Directory + "NoobHelper 0.1.exe", InstallPfad + "NoobHelper\")
File.CopyFile(Program.Directory + "SmallBasicLibrary.dll", InstallPfad + "NoobHelper\")
File.CopyFile(Program.Directory + "NoobHelper 0.1.pdb", InstallPfad + "NoobHelper\")
TextWindow.WriteLine("NoobHelper 0.1 is succesfully installed.")
TextWindow.Pause()
Program.End()

Ich habe beide Versionen ausprobiert, aber keine hat funktioniert. Jedes Mal, wenn ich das Programm starte und erfolgreich beende,  ist zwar ein Ordner erstellt worden, aber darin sind keinerlei Dateien. Kann mir jemand sagen, was ich falsch mache?

Ich kann Visual Basic nicht benutzen, weil es da einige Unterschiede im Vergleich zu Small Basic gibt. Ich habe versucht mein Programm zu Visual Basic umzuwandeln, aber wenn ich die umgewandelte Version starte, werden mir alle Befehle als falsch markiert.

Grüße

Timo

Answer 1

Hi Timo,

ich kenne mich mit Small Basic jetzt nicht aus.

Beim Blick auf den Code wäre meine Vermutung dasProgramm.Directory. Dir den Pfard ohen "\" am ende zurück gibt und du es noch anfügen musst.

MFG

Björn

Answer 2

Vielen Dank!

Ich werde das gleich mal ausprobieren!

Es funktioniert!!!

Vielen Dank! :D

---

Ich bin Neu

Answer 3

Hallo Timo,

da VB.NET etwas gänzlich anderes als Small Basic ist, wäre es sinnvoller, die Frage im (AFAICS leider nur englischsprachig verfügbaren) Small Basic Forum zu stellen:

  http://social.msdn.microsoft.com/Forums/en-US/smallbasic

---

Gruß, Stefan
Microsoft MVP - Visual Developer ASP/ASP.NET
http://www.asp-solutions.de/ - Consulting, Development
http://www.aspnetzone.de/ - ASP.NET Zone, die ASP.NET Community

Answer 4

Danke für den Link. Ich habe dieses Forum unter der Frage stellen Option vom Forum nicht gefunden. Aber in Zukunft werde ich dann dort posten. :)

Viel Glück euch.

mfg

Timo

---

Ich bin Neu

Answer 5

Hallo Timo,

Es freut uns dass Du Dein Problem lösen könntest und Bitte in die Zukunft markieren Sie den Beitrag, der zur Lösung geführt hat, als "Die Antwort". Durch Bewerten eines Beitrags als "Die
Antwort" können andere Teilnehmer die Lösung schneller finden.

Gruß,

Ionut