purge javitaqs

Dokumentáció Készítő 3/MainWindow.xaml.vb

@@ -15,6 +15,7 @@ Imports System.Runtime.Serialization.Formatters.Binary
 Imports System.Runtime.Serialization
 Imports Microsoft.Win32
 Imports System.ComponentModel
+Imports System.Windows.Interop
 
 
 
@@ -98,6 +99,9 @@ Public Class MainWindow
     Dim namingsyntax As String
     Dim xlstype As String = ""
 
+    Dim session As IpfcBaseSession = Nothing
+    Dim conn As IpfcAsyncConnection = Nothing
+
 
 
     'Buttons
@@ -182,6 +186,25 @@ Public Class MainWindow
 
         End If
 
+        Try
+            Process.GetProcessesByName("pfclscom")(0).Kill()
+        Catch ex As Exception
+        End Try
+
+
+
+        Try
+            Connect(session, conn)
+        Catch ex As Exception
+            If ex.Message = "pfcExceptions::XToolkitAmbiguous" Then
+                MsgBox("Egynél több Creo fut, kérlezk zárd be az egyiket.")
+            End If
+            Exit Sub
+        End Try
+
+        workDir = session.GetCurrentDirectory
+        '   MsgBox(workDir)
+
     End Sub
 
     Private Sub Destenation_Browse_Click(sender As Object, e As EventArgs)
@@ -203,14 +226,14 @@ Public Class MainWindow
         Dim b As New OpenFileDialog
         b.Multiselect = True 'Több file kijelölhetősége
         b.Filter = "DRW|*drw.1|All version drw|*.drw*" 'Alap formátum kiválasztáas
-        b.InitialDirectory = "C:\"
+        b.InitialDirectory = workDir
-
 
+        '  MsgBox(workDir)
         '   b.AutoUpgradedimEnabled = True
         'ez biztos rossz lesz!!!!!!!!!!!!
         '  Dim bul As Boolean
         '   bul = b.ShowDialog
-
+        Purge.Purge(workDir, 999, ".drw", False, False, Path.GetTempPath() + "temp.txt")
         If b.ShowDialog() = True Then
 
             Dim names As String() = b.FileNames
@@ -224,28 +247,11 @@ Public Class MainWindow
 
     End Sub
 
+
     Private Sub CreateDocument_Click(sender As Object, e As RoutedEventArgs) Handles CreateDocument.Click
 
-        Try
-            Process.GetProcessesByName("pfclscom")(0).Kill()
-        Catch ex As Exception
-        End Try
-
-        Dim session As IpfcBaseSession = Nothing
-        Dim conn As IpfcAsyncConnection = Nothing
-
-        Try
-            Connect(session, conn)
-        Catch ex As Exception
-            If ex.Message = "pfcExceptions::XToolkitAmbiguous" Then
-                MsgBox("Egynél több Creo fut, kérlezk zárd be az egyiket.")
-            End If
-            Exit Sub
-        End Try
 
 
-
-        workDir = session.GetCurrentDirectory
         '   MsgBox(workDir)
         If PDFCheckBox.IsChecked = True Or
        DXFCheckBox.IsChecked = True Or