Initial commit

Archiv/EDKB08_Aktuell/EDKB08_VitruvTransfer/Module1.vb

@@ -0,0 +1,95 @@
+Imports System.IO
+Imports System.Threading
+Imports System.Xml
+
+Module Module1
+    Private Enum Enum_MapTyp
+        Mappen = 0
+        Loeschen = 1
+    End Enum
+    Sub Main()
+        makeNetUse(Enum_MapTyp.Mappen)
+        Move_Files_to_Localsystem()
+        makeNetUse(Enum_MapTyp.Loeschen)
+    End Sub
+
+    Sub Move_Files_to_Localsystem()
+        Dim di As New DirectoryInfo(My.Settings.SourceFiles)
+
+
+        For Each subdi As DirectoryInfo In di.GetDirectories
+            Dim FileExists As Boolean = False
+            For Each filename As String In IO.Directory.GetFiles(My.Settings.SourceFiles + "\" + subdi.Name, "*.pdf")
+                If File.Exists(My.Settings.TempFIle + IO.Path.GetFileName(filename)) Then FileExists = True
+            Next
+            For Each filename As String In IO.Directory.GetFiles(My.Settings.SourceFiles + "\" + subdi.Name, "*.xml")
+                If File.Exists(My.Settings.TempFIle + subdi.Name + "_" + IO.Path.GetFileName(filename)) Then FileExists = True
+            Next
+
+
+            If Not FileExists Then
+
+                For Each filename As String In IO.Directory.GetFiles(My.Settings.SourceFiles + "\" + subdi.Name, "*.pdf")
+                    If My.Settings.EindeutigePDF = 1 Then
+                        File.Move(filename, My.Settings.TempFIle + subdi.Name + "_" + IO.Path.GetFileName(filename))
+                    Else
+                        File.Move(filename, My.Settings.TempFIle + IO.Path.GetFileName(filename))
+                    End If
+                Next
+                For Each filename As String In IO.Directory.GetFiles(My.Settings.SourceFiles + "\" + subdi.Name, "*.xml")
+                    If My.Settings.EindeutigePDF = 1 Then
+                        Dim xmldoc As New Xml.XmlDocument
+                        xmldoc.Load(filename)
+                        Dim root As XmlElement = xmldoc.DocumentElement
+                        Dim elemList As XmlNodeList = root.GetElementsByTagName("DATEINAME")
+                        Dim i As Integer
+                        For i = 0 To elemList.Count - 1
+                            Dim sfilename As String = My.Settings.TempFIle + subdi.Name + "_" + IO.Path.GetFileName(filename) + ".ind"
+                            Dim dateiname As String = elemList.ItemOf(i).InnerXml
+                            elemList.Item(i).InnerXml = subdi.Name + "_" + dateiname
+                        Next
+                        xmldoc.Save(My.Settings.TempFIle + subdi.Name + "_" + IO.Path.GetFileName(filename) + ".ind")
+                        File.Delete(filename)
+                    Else
+                        File.Move(filename, My.Settings.TempFIle + subdi.Name + "_" + IO.Path.GetFileName(filename) + ".ind")
+
+                    End If
+                Next
+                Thread.Sleep(2000)
+                Dim counter As Integer = 0
+                For Each filename As String In IO.Directory.GetFiles(My.Settings.SourceFiles + "\" + subdi.Name, "*.*")
+                    counter = counter + 1
+                Next
+                If counter = 0 Then
+                    Dim di1 As New IO.DirectoryInfo(My.Settings.SourceFiles + "\" + subdi.Name)
+                    di1.Delete()
+                End If
+            End If
+
+        Next
+
+    End Sub
+    Private Function makeNetUse(ByVal iTyp As Enum_MapTyp) As Integer
+        'Net Use ausführen
+        Dim cmdret As Integer
+        Try
+            If iTyp = Enum_MapTyp.Mappen Then
+                cmdret = Shell("Net Use " & My.Settings.NetUse & " " & My.Settings.Passwort & " /user:" & My.Settings.User, AppWinStyle.NormalFocus, True)
+            Else
+                cmdret = Shell("Net Use " & My.Settings.SourceFiles & " /d /y", AppWinStyle.NormalFocus, True)
+            End If
+            makeNetUse = cmdret
+        Catch ex As Exception
+            Write_Debug("MakeNetUse:" + ex.Message)
+        End Try
+    End Function
+
+    Sub Write_Debug(Text As String)
+        If My.Settings.Debug = 1 Then
+            FileOpen(1, My.Settings.DebugFile, OpenMode.Append)
+            WriteLine(1, Text)
+            FileClose(1)
+        End If
+    End Sub
+
+End Module