Imports System.IO.File
Imports System.IO
Imports System
Public Class WinPE_aktualisieren
 
    '<System.Runtime.InteropServices.DllImport("shell32.dll")> _
    Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperation" ( _
    ByRef lpFileOp As SHFILEOPSTRUCT) As Integer
 
    Public Structure SHFILEOPSTRUCT
        Public hwnd As Long
        Public wFunc As Long
        Public pFrom As String
        Public pTo As String
        Public fFlags As Integer
        Public fAnyOperationsAborted As Long
        Public hNameMappings As Long
        Public lpszProgressTitle As String
    End Structure
 
    Private Const FOF_ALLOWUNDO = &H40
    Private Const FOF_NOCONFIRMATION = &H10
    Private Const FO_COPY = &H2
 
Private Sub dateien_kopieren(ByVal von As String, ByVal nach As String)
        'Datei kopieren kopieren
        Dim Files As String = ""
        Dim SFO As SHFILEOPSTRUCT
 
        Application.DoEvents()
 
        Files = Files & von & "*.*" & Chr(0)
        Files = Files & Chr(0)
 
        With SFO
            .hwnd = Me.Handle
            .wFunc = FO_COPY
            .pFrom = Files
            .pTo = nach & Chr(0)
        End With
        SHFileOperation(SFO)
        'SHFileOperationA(von, nach, True)
        If SFO.fAnyOperationsAborted Then
            Call MsgBox("Enige Operationen wurden nicht ausgeführt!")
        End If
 
    End Sub
 
'Aufrufen der Prozedur
 
        dateien_kopieren("C:\Script", "\\RemoteRechner\C$")

Jedes Programm,
in das sich ein Fehler einschleichen kann,wird auch einen enthalten.