Start 2

Dokumentation/Classes/Folder.vb

@@ -0,0 +1,23 @@
+Public Class Folder
+    Public Shared Function FolderMove(oldID As String, oldHost As String, newID As String, NewHost As String)
+        Dim PathOld As String
+        Dim PathNew As String
+
+        PathOld = Class1.FilePath & "\" & oldID & "\" & oldHost
+        PathNew = Class1.FilePath & "\" & newID & "\" & NewHost
+
+        If IO.Directory.Exists(PathNew) Then
+            MsgBox("Zielordner existiert bereits! Abbruch.")
+            Return "Fehler"
+        End If
+        If IO.Directory.Exists(Class1.FilePath & "\" & newID) Then
+        Else
+            IO.Directory.CreateDirectory(Class1.FilePath & "\" & newID)
+        End if
+
+        If IO.Directory.Exists(PathOld) Then
+            IO.Directory.Move(PathOld, PathNew)
+        End If
+
+    End Function
+End Class