Zitat:

Wie wäre es damit: Dim Header As String Dim Computer As String Dim fso   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Header = "Admin-Tool" Computer = Environment.MachineName fso = CreateObject("Scripting.FileSystemObject") End Sub Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDatensicherungDurchführen.Click 'Ist dieses Gerät das Vaio? If Computer = "VAIO" Then 'Backup beginnt Progressbar1.maximum = 5 Progressbar1.maximum = 0 fso.copyFolder("E:\Datenbank", "E:\Backup\Server") Progressbar1.Value = 1 fso.copyFolder("E:\Schriftverkehr", "E:\Backup\Server\Schriftverkehr") Progressbar1.Value = 2 fso.copyFolder("E:\Vorlagen", "E:\Backup\ServerVorlagen") Progressbar1.Value = 3 fso.copyFolder("C:\RP", "E:\Backup\Server\RP") Progressbar1.Value = 4 fso.copyFolder("C:\RP.OLD", "E:\Backup\Server\RP.OLD") Progressbar1.Value = 5 Else MsgBox("Sie arbeiten nicht am VAIO sondern am " & Computer, MsgBoxStyle.Critical, Header) End If End Sub oder so