MS Referenz W-Laufwerk

app/DD_PM_WINDREAM/frmMain.vb

@@ -70,7 +70,6 @@ Public Class frmMain
         If ERROR_STATE = "NO DB-CONNECTION" Or ERROR_STATE = "FAILED DBCONNECTION" Then
             MsgBox("Bitte hinterlegen Sie die Datenbankverbindung in der Konfiguration!", MsgBoxStyle.Critical, "Fehlende Konfiguration:")
             frmKonfig.ShowDialog()
-
         End If
         Try
             If CultureInfo.CurrentUICulture.ThreeLetterISOLanguageName = "eng" Then
@@ -698,19 +697,6 @@ Public Class frmMain
         End Try
 
     End Sub
-    Private Function file_exists(ByVal _file As String)
-        Try
-            If System.IO.File.Exists(_file) Then
-                Return True
-            Else
-                Return False
-            End If
-        Catch ex As Exception
-            MsgBox("Fehler in Funktion bei file_exists - Fehler: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
-            Return False
-        End Try
-    End Function
-
     Private Sub ToolStripButton1_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripButton1.Click
         Try
             frmKonfig.ShowDialog()
@@ -904,6 +890,7 @@ Public Class frmMain
                     Dim DOC_ID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("DOC_ID"))
                     If IsNothing(DOC_ID) Then Exit Sub
                     Dim DOC_PATH = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("FULL_FILE_PATH"))
+                    DOC_PATH = DOC_PATH.Replace("W:", "\\windream\objects")
                     'Checking if table really contains one record with profile-id and docid
                     expression = expression & " AND DOC_ID = " & DOC_ID
                     Dim TEMP_TABLE = CURR_DT_PROFILEGRID