VB2008 express Fragen

nag · 04/06/2010, 22:14

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!

Gordge · 04/07/2010, 00:27

du musst in jedemfall wissen wo sich das Target befindet.
Hat aber eigentlich weniger was mit dem Tech.Support zu tun....

ich #move mal

nag · 04/07/2010, 10:11

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?

Atheuz · 04/07/2010, 10:57

Quote:

Originally Posted by nag

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.

musicinstructor · 04/07/2010, 13:18

so wie Atheuz geht es glaub ich, aber falls das nicht geht, kann man mit Application.Startuppath den Pfad der exe rausfinden.

nag · 04/07/2010, 15:48

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

Atheuz · 04/07/2010, 16:08

Quote:

Originally Posted by nag

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"

Hättest du dir den Pfad mal ausgeben gelassen, hättest du auch bemerkt das ein \ fehlt.

nag · 04/07/2010, 16:28

Okay das habe ich jetzt. Nur irgendwie ist immer noch ein Fehler drinn.

Das ist definitiv das falsche Verzeichnis.

Atheuz · 04/07/2010, 18:56

Quote:

Originally Posted by nag

Okay das habe ich jetzt. Nur irgendwie ist immer noch ein Fehler drinn.

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.

nag · 04/07/2010, 18:59

Wie mach ich das zu einem Full Setup bzw. wie Fixx ich das?

musicinstructor · 04/09/2010, 12:40

einfach das projekt erstellen und die exe in das verzeichnis, in dem die wow.exe ist, verschieben (wird wahrscheinlich der WOW-Ordner sein).

nag · 04/09/2010, 21:22

Okay darauf hätte ich auch kommen müssen ....

Naja hab etwas Probiert und dann hat es geklappt. Danke nochmals^^
Der Beitrag kann geschlossen werden