VB2008 express Fragen

04/06/2010 22:14 nag#1
Hoffe mal ,dass das hier der richtige Bereich ist.

Also zum Problem1:
Ich würde gerne ein Programm haben ,das eine Datei startet. Das wäre einfach,
aber da ich diese auch mal zu freunden oder so mitnehme würde ich gerne Datei XY.exe aus dem gleichen Verzeichniss starten. Der Name bleibt gleich nur das Verzeichniss kann mal C:/lol/3/xy.exe oder auch E:/xy.exe Wie mach ich das am besten? Google hat mir nichts passendes ausgespuckt.

Problem2:
Gleiches wie oben nur das ich einen Ordner(Mit Dateien) löschen möchte nur eben wie oben flexibel

/e Gerade tat sich ein neues Problem auf:
Ich würde gerne eine datei( genau wie oben auch flexibel) bearbeiten. Es soll der komplette Inhalt gelöscht werden und ein neuer hinzukommen die datei ist eine .conf datei
Hoffe ihr könnt mir helfen! :)
04/07/2010 00:27 Gordge#2
du musst in jedemfall wissen wo sich das Target befindet.
Hat aber eigentlich weniger was mit dem Tech.Support zu tun....

ich #move mal
04/07/2010 10:11 nag#3
Das heißt also das man den Pfad nicht irgendwie auslesen kann bzw. einfach einen Unterordner löschen kann? Mein Script ist immer im gleichen Ordner nur das davor kann sich verändern. Ist das nicht möglich?
04/07/2010 10:57 Atheuz#4
Quote:
Originally Posted by nag View Post
Das heißt also das man den Pfad nicht irgendwie auslesen kann bzw. einfach einen Unterordner löschen kann? Mein Script ist immer im gleichen Ordner nur das davor kann sich verändern. Ist das nicht möglich?
Natürlich geht das. Du brauchst keinen Pfad angeben, sondern nur z.B "xy.exe", die Funktion weiß dann selber das die gesuchte Datei im selben Ordner sein muss. Ansonsten gibt es auch Umgebungsvariablen bzw Funktionen die den Pfad ausgeben, googel einfach mal selbst dazu, sollten eigentlich Ergebnisse zu jedem Stichwort kommen.
04/07/2010 13:18 musicinstructor#5
so wie Atheuz geht es glaub ich, aber falls das nicht geht, kann man mit Application.Startuppath den Pfad der exe rausfinden.
04/07/2010 15:48 nag#6
Bei mir funktioniert das irgendwie nicht. Hab hier mal den Code hochgeladen. Vielleicht hilft das weiter, ja einige Funktionen sind nur vorrübergehend als Platzfüller, für ein eventuelles späteres Design.
Code:
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox("Hallo")

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Close()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("www.google.de")
        Label2.Hide()
        Label3.Hide()
        Label4.Hide()
        ProgressBar1.Hide()
        ProgressBar2.Hide()
        ProgressBar3.Hide()
        Button1.Show()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Start()
        Label2.Show()
        ProgressBar1.Show()

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(1)
        If ProgressBar1.Value = ProgressBar1.Maximum Then
            Label3.Show()
            ProgressBar2.Show()
            Timer2.Start()
            Timer1.Stop()
        End If
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        ProgressBar2.Increment(2)
        If ProgressBar2.Value = ProgressBar2.Maximum Then
            Label4.Show()
            ProgressBar3.Show()
            Timer3.Start()
            Timer2.Stop()
        End If
    End Sub

    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        ProgressBar3.Increment(9)
        If ProgressBar3.Value = ProgressBar3.Maximum Then
            Timer3.Stop()
            Button1.Show()
        End If
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim value As String
        Dim value2
        value = Application.StartupPath
        value2 = value & "wow.exe"
        Shell(value2)
    End Sub
End Class
04/07/2010 16:08 Atheuz#7
Quote:
Originally Posted by nag View Post
Bei mir funktioniert das irgendwie nicht. Hab hier mal den Code hochgeladen. Vielleicht hilft das weiter, ja einige Funktionen sind nur vorrübergehend als Platzfüller, für ein eventuelles späteres Design.
Code:
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox("Hallo")

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Close()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("www.google.de")
        Label2.Hide()
        Label3.Hide()
        Label4.Hide()
        ProgressBar1.Hide()
        ProgressBar2.Hide()
        ProgressBar3.Hide()
        Button1.Show()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Start()
        Label2.Show()
        ProgressBar1.Show()

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(1)
        If ProgressBar1.Value = ProgressBar1.Maximum Then
            Label3.Show()
            ProgressBar2.Show()
            Timer2.Start()
            Timer1.Stop()
        End If
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        ProgressBar2.Increment(2)
        If ProgressBar2.Value = ProgressBar2.Maximum Then
            Label4.Show()
            ProgressBar3.Show()
            Timer3.Start()
            Timer2.Stop()
        End If
    End Sub

    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        ProgressBar3.Increment(9)
        If ProgressBar3.Value = ProgressBar3.Maximum Then
            Timer3.Stop()
            Button1.Show()
        End If
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim value As String
        Dim value2
        value = Application.StartupPath
        value2 = value & "wow.exe"
        Shell(value2)
    End Sub
End Class
Quote:
Application.StartupPath & "wow.exe"
:facepalm:

Hättest du dir den Pfad mal ausgeben gelassen, hättest du auch bemerkt das ein \ fehlt.
04/07/2010 16:28 nag#8
Okay das habe ich jetzt. Nur irgendwie ist immer noch ein Fehler drinn.

[Only registered and activated users can see links. Click Here To Register...] Das ist definitiv das falsche Verzeichnis.
04/07/2010 18:56 Atheuz#9
Quote:
Originally Posted by nag View Post
Okay das habe ich jetzt. Nur irgendwie ist immer noch ein Fehler drinn.

[Only registered and activated users can see links. Click Here To Register...] Das ist definitiv das falsche Verzeichnis.
Du hast ein OneClick Setup gemacht, ist wohl logisch das es aus einem temponären Verzeichnis dann gestartet wird.
04/07/2010 18:59 nag#10
Wie mach ich das zu einem Full Setup bzw. wie Fixx ich das?
04/09/2010 12:40 musicinstructor#11
einfach das projekt erstellen und die exe in das verzeichnis, in dem die wow.exe ist, verschieben (wird wahrscheinlich der WOW-Ordner sein).
04/09/2010 21:22 nag#12
Okay darauf hätte ich auch kommen müssen .... :facepalm: Naja hab etwas Probiert und dann hat es geklappt. Danke nochmals^^
Der Beitrag kann geschlossen werden