104 lines
4.9 KiB
VB.net
104 lines
4.9 KiB
VB.net
Imports System.IO
|
|
Imports SDL
|
|
|
|
Public Class frmGenerelleGestellungen
|
|
Dim pathGG = "\\192.168.0.91\f\VERAG Vorlagen Quickstop\Generelle Gestellungen\"
|
|
' Dim cDATENSERVER As New VERAG_PROG_ALLGEMEIN.cDATENSERVER
|
|
Private Sub txtSuchen_TextChanged(sender As Object, e As EventArgs) Handles txtSuchen.TextChanged
|
|
Dim search = sender.text
|
|
DataGridView.Rows.Clear()
|
|
If search.length < 2 Then Exit Sub
|
|
' For Each f In System.IO.FileStream("Y:\VERAG Vorlagen Quickstop\Generelle Gestellungen\")
|
|
For Each dir As String In IO.Directory.GetDirectories(pathGG) ' Ermittelt alle Unterordner des Ordners
|
|
For Each file As String In IO.Directory.GetFiles(dir) ' Ermittelt alle Dateien des Ordners
|
|
If cut_file(file).ToUpper.StartsWith(search.ToUpper) Then
|
|
Dim FI As New IO.FileInfo(file)
|
|
Dim LastWriteDate As Date = FI.LastWriteTime
|
|
DataGridView.Rows.Add(cut_file(file), FI.LastWriteTime, CInt(FI.Length / 1000) & " KB", file)
|
|
'MsgBox(cut_file(file))
|
|
End If
|
|
'IO.File.Copy(file, AppDomain.CurrentDomain.BaseDirectory & cut_file(file), True) ' Kopiert die Dateien Next
|
|
Next
|
|
' For Each file As String In IO.Directory.GetDirectories(f) ' Ermittelt alle Unterordner des Ordners
|
|
'My.Computer.FileSystem.CopyDirectory(file, AppDomain.CurrentDomain.BaseDirectory & cut_file(file), True)
|
|
Next
|
|
End Sub
|
|
|
|
Private Function cut_file(ByVal file As String) As String ' Funktion zum Entfernen der Backslashs / Ordner While file.Contains("\") file = file.Remove(0, 1) End While Return file End Function
|
|
While file.Contains("\")
|
|
file = file.Remove(0, 1)
|
|
End While
|
|
Return file
|
|
End Function
|
|
|
|
|
|
Private Sub DataGridView_CellContentDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView.CellDoubleClick
|
|
If DataGridView.SelectedRows.Count > 0 Then
|
|
'cDATENSERVER.openDataTMP(DataGridView.SelectedRows(0).Cells("path").Value)
|
|
VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.OPEN_PATH(DataGridView.SelectedRows(0).Cells("path").Value)
|
|
End If
|
|
End Sub
|
|
|
|
Dim cFormularManager As New VERAG_PROG_ALLGEMEIN.cFormularManager
|
|
Private Sub btnT1T2_Click(sender As Object, e As EventArgs) Handles btnT1T2.Click
|
|
cFormularManager.fillGestellungsGarantie(-1, "DE")
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
cFormularManager.fillGestellungsGarantie(-1, "EN")
|
|
End Sub
|
|
|
|
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
|
cFormularManager.fillGestellungsGarantie(-1, "FR")
|
|
End Sub
|
|
|
|
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
|
|
cFormularManager.fillGestellungsGarantie(-1, "NL")
|
|
End Sub
|
|
|
|
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
|
|
|
|
Dim fd As New OpenFileDialog
|
|
fd.Filter = "PDF Dateien|*.pdf;"
|
|
|
|
If fd.ShowDialog() = DialogResult.OK Then
|
|
If Not fd.FileName.EndsWith(".pdf") And Not fd.FileName.EndsWith(".PDF") Then
|
|
Me.Cursor = Cursors.Default
|
|
MsgBox("Falsches Format, bitte .PDF-Datei auswählen!")
|
|
Exit Sub
|
|
End If
|
|
|
|
Dim path = ""
|
|
Dim value As String = ""
|
|
value = InputBox("Bitte geben Sie einen Namen für das Dokument ein:", "File - Name", System.IO.Path.GetFileName(fd.FileName), 200, 100)
|
|
If Not value.ToUpper.EndsWith(".PDF") Then value &= ".pdf"
|
|
|
|
If value.Chars(0) = "S" Then
|
|
If value.ToUpper.StartsWith("SCH") Then : path = "\\192.168.0.91\f\VERAG Vorlagen Quickstop\Generelle Gestellungen\SCH\"
|
|
ElseIf value.Chars(0) = "ST" Then : path = "\\192.168.0.91\f\VERAG Vorlagen Quickstop\Generelle Gestellungen\ST\"
|
|
Else : path = "\\192.168.0.91\f\VERAG Vorlagen Quickstop\Generelle Gestellungen\S\"
|
|
End If
|
|
Else
|
|
path = "\\192.168.0.91\f\VERAG Vorlagen Quickstop\Generelle Gestellungen\" & value.Chars(0) & "\"
|
|
End If
|
|
If Not System.IO.Directory.Exists(path) Then
|
|
System.IO.Directory.CreateDirectory(path)
|
|
End If
|
|
System.IO.File.Copy(fd.FileName, path & value)
|
|
|
|
End If
|
|
Me.Cursor = Cursors.Default
|
|
|
|
End Sub
|
|
|
|
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
|
|
If DataGridView.SelectedRows.Count = 1 Then
|
|
If vbYes = MsgBox("Möchten Sie die Datei wirklich löschen?:" & vbNewLine & vbNewLine & DataGridView.SelectedRows(0).Cells("path").Value, vbYesNoCancel) Then
|
|
System.IO.File.Delete(DataGridView.SelectedRows(0).Cells("path").Value)
|
|
txtSuchen.Text = ""
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
|
|
End Class |