Fachmann-frau gesucht, Script in einer Windows Form Anwendung

CreateObject("WScript.Shell").Popup "Kopiere",2, "Information"  
Const FOLDER_MITTEILUNGEN = "\\d\rot\Test\Inhalt"  
Const FOLDER_LINKS = "\\d\rot\Test\Quelle\Verknüpfungen\Laufwerk_1"  
Set fso = CreateObject("Scripting.Filesystemobject")  
Set objShell = CreateObject("Wscript.Shell")  
For Each link In fso.GetFolder(FOLDER_LINKS).Files
If LCase(fso.GetExtensionName(link.Name)) = "lnk" Then  
Set lnk = objShell.CreateShortcut(link.Path)
fso.CopyFile FOLDER_MITTEILUNGEN & "\*.*", lnk.TargetPath & "\Bilder"  
End If
Next
fso.DeleteFile FOLDER_MITTEILUNGEN & "\*.*",True  
MsgBox "Mitteilung versendet"  
else
CreateObject("WScript.Shell").Popup "Abruch, keine Datei kopiert",2, "Information"  
end if

Const BASEFOLDER = "\\d\rot\Test\Quelle\Verknüpfungen\Laufwerk_1"  
Dim arrFoundFiles(),cnt, strFind
cnt = 0
Set fso = CreateObject("Scripting.FileSystemObject")  
Set objShell = CreateObject("Wscript.Shell")  
Do While cnt = 0
strFind = InputBox("Bitte zu suchenden Dateinamen eingeben:","Beispiel.jpg")  
If strFind = False Or strFind = "" Then Exit Do  
FindFilesRecursive fso.GetFolder(BASEFOLDER),strFind
If cnt = 0 Then
If MsgBox("Const BASEFOLDER = "\\d\rot\Test\Quelle\Verknüpfungen\Laufwerk_1"  
Dim arrFoundFiles(),cnt, strFind
cnt = 0
Set fso = CreateObject("Scripting.FileSystemObject")  
Set objShell = CreateObject("Wscript.Shell")  
Do While cnt = 0
strFind = InputBox("Bitte zu suchenden Dateinamen eingeben:","Beispiel.jpg")  
If strFind = False Or strFind = "" Then Exit Do  
FindFilesRecursive fso.GetFolder(BASEFOLDER),strFind
If cnt = 0 Then
If MsgBox("Die Suche war nicht erfolgreich. Möchten sie die Eingabe wiederholen?",vbYesNo Or vbQuestion) = vbNo Then  
Exit Do
End If
Else
If MsgBox("Die Suche hat folgende Dateien gefunden: " & vbNewLine & vbNewline & Join(arrFoundFiles,vbNewLine) & vbNewLine & vbNewLine & "Möchten sie diese nun löschen?", vbQuestion Or vbYesNo) = vbYes Then  
For Each file In arrFoundFiles
fso.DeleteFile file, True
Next
End If
End If
Loop
Function FindFilesRecursive(objFolder, strSearch)
if fso.FileExists(objFolder.Path & "\" & strSearch) Then  
ReDim Preserve arrFoundFiles(cnt)
arrFoundFiles(cnt) = objFolder.Path & "\" & strSearch  
cnt = cnt + 1
End If
for each file in objFolder.Files
If LCase(fso.GetExtensionName(file.Name)) = "lnk" Then  
strTarget = objShell.CreateShortcut(file.Path).TargetPath
For Each f In Array("Bilder","Foto")  
If fso.FolderExists(strTarget & "\" & f) then  
FindFilesRecursive fso.GetFolder(strTarget & "\" & f),strSearch  
End if
Next
End If
Next
For Each subfolder In objFolder.SubFolders
FindFilesRecursive subfolder, strSearch
Next
End Function?",vbYesNo Or vbQuestion) = vbNo Then  
Exit Do
End If
Else
If MsgBox("Die Suche hat folgende Dateien gefunden: " & vbNewLine & vbNewline & Join(arrFoundFiles,vbNewLine) & vbNewLine & vbNewLine & "Möchten sie diese nun löschen?", vbQuestion Or vbYesNo) = vbYes Then  
For Each file In arrFoundFiles
fso.DeleteFile file, True
Next
End If
End If
Loop
Function FindFilesRecursive(objFolder, strSearch)
if fso.FileExists(objFolder.Path & "\" & strSearch) Then  
ReDim Preserve arrFoundFiles(cnt)
arrFoundFiles(cnt) = objFolder.Path & "\" & strSearch  
cnt = cnt + 1
End If
for each file in objFolder.Files
If LCase(fso.GetExtensionName(file.Name)) = "lnk" Then  
strTarget = objShell.CreateShortcut(file.Path).TargetPath
For Each f In Array("Bilder","Persönliche Foto")  
If fso.FolderExists(strTarget & "\" & f) then  
FindFilesRecursive fso.GetFolder(strTarget & "\" & f),strSearch  
End if
Next
End If
Next
For Each subfolder In objFolder.SubFolders
FindFilesRecursive subfolder, strSearch
Next
End Function