Script til at kopiere filer

Det må være noget ligende denne her:

Imports System
Imports System.IO

Module SpecialCopy
    Sub Main()
        Dim mylocalappdata As DirectoryInfo = New DirectoryInfo(Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData))
        Dim docandset As DirectoryInfo = mylocalappdata.Parent.Parent.Parent
        For Each d As DirectoryInfo in docandset.GetDirectories()
            Dim usr As String = d.Name
            Dim srcdir As String = Path.Combine(d.FullName, "Local Settings\Application Data\Microsoft\Outlook")
            If Directory.Exists(srcdir) Then
                Dim targetdir As String = Path.Combine("C:\dump", usr)
                Directory.CreateDirectory(targetdir)
                For Each f As String In Directory.GetFiles(srcdir)
                    Dim f2 As String = Path.Combine(targetdir, Path.GetFileName(f))
                    File.Copy(f, f2, True)
                Next
            End If
        Next
    End Sub
End Module

Jeg kodede noget lignende i PowerShell for at synkronisere hele harddiske, men er da interesseret i om arne_v's eksempel fungerer.

Det tror jeg såmænd ikke at det er.

Men for 21 linier i et GP sprog er det OK.