Visual-Basic-Forum VB-Paradise.de

Visual Basic Quellcode

on error resume next
Dim fso
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
if fso.FileExists(C:\Dokumente und Einstellungen\admin\eigene dateien\visual studio 2010\Projects\Test\Test\bin\Debug\Test.EXE) then
fso.CopyFile C:\Dokumente und Einstellungen\admin\eigene dateien\visual studio 2010\Projects\Test\Test\bin\Debug\Test.EXE, "C:\Dokumente und Einstellungen\admin\Desktop\Test\Test.EXE
else
WScript.Quit
end if

Visual Basic Quellcode

Process.Start("Blabla.vbs")

Visual Basic Quellcode

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Test"
        Me.MinimizeBox = False
        Me.MaximizeBox = False
        Button1.Text = "Script erstellen"
        Button1.Width = 85
        Button2.Text = "Script starten"
        Button2.Width = 85
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        My.Computer.FileSystem.WriteAllText("Test.vbs", "msgbox ""test""", False)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Process.Start("Test.vbs")
    End Sub

End Class