123

Dokumentation/Classes/cFolder.vb

@@ -0,0 +1,44 @@
+Public Class cFolder
+
+    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
+
+    Public Shared Function explorerstarten(ip As String)
+        Dim Path, nwstandort, netname As String
+        Dim host As New Host
+        host.gethost(ip)
+        If host.Linked = True Then
+            host.gethost(host.LinkedWith)
+        End If
+        Class1.ip2netname(host.IPAdresse, nwstandort, netname)
+
+        Path = Class1.FilePath & "\" & nwstandort & "_" & netname & "\" & host.HOST
+
+        If IO.Directory.Exists(Path) Then
+            Process.Start(Path)
+        Else
+            IO.Directory.CreateDirectory(Path)
+            Process.Start(Path)
+        End If
+        'MsgBox(path)
+    End Function
+End Class