Imports System
Imports System.Runtime.InteropServices
Imports System.Drawing
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.IO
Imports System.Windows.Forms.Form
Imports System.Drawing.Printing
Public Class Volledigewandenbeheer
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
'GEBRUIK TIMER OM FORMULIER TE ACTIVEREN (OMEWEG)
Me.Focus()
Timer1.Enabled = False
End Sub
Private Sub Volledigewandenbeheer_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
Dim vwbeheer As New Login
vwbeheer.ShowInTaskbar = False
vwbeheer.Activate()
End Sub
Private Sub btnwisbijlagen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnwisbijlagen.Click
lbldropofferte.Text = "DROP Offerte"
lbldropdwg.Text = "DROP Dwg"
lbldropfreigab.Text = "DROP Freigab"
lbldropab.Text = "DROP Ab"
lbldroppost.Text = "DROP Post"
lstbijlage.Items.Clear()
End Sub
Private Sub bijlagenopslaan()
On Error Resume Next
'COPIEER BESTANDEN IN LABELS NAAR BIJHORENDE MAPPEN
If txtdossiernr.Text = "" Then
MsgBox("Het dossiernummer is niet ingevuld." & vbCrLf & "De bestanden kunnen niet worden opgeslaan.", MsgBoxStyle.Information, "MELDING")
Exit Sub
Else
End If
Dim basismap As String
Dim dossier As String
Dim offerte As String
Dim dwg As String
Dim freigab As String
Dim ab As String
Dim post As String
Dim datumnu As Date
Dim datumstring As String
Dim destination As String
Dim dotPosition As Integer
Dim slashposition As Integer
Dim filenameOnly As String
Dim filenamefull As String
datumnu = Date.Now
datumstring = datumnu.ToString("MMMM dd yyyy - H mm ss")
basismap = "K:\DORMA Foquin Administratie\Dossiers-Volledigewanden\"
dossier = txtdossiernr.Text
offerte = lbldropofferte.Text
dwg = lbldropdwg.Text
freigab = lbldropfreigab.Text
ab = lbldropab.Text
post = lbldroppost.Text
'CONTROLE
Dim drdossier As DirectoryInfo = New DirectoryInfo(basismap & dossier)
If drdossier.Exists Then
'COPIEREN
If lbldropofferte.Text <> "DROP Offerte" Then
dotPosition = offerte.LastIndexOf(".")
slashposition = offerte.LastIndexOf("\")
filenameOnly = offerte.Substring(dotPosition + 0)
filenamefull = offerte.Substring(slashposition + 0)
destination = basismap & dossier & "\offerte" & filenamefull
File.Copy(offerte, destination)
Else
End If
If lbldropdwg.Text <> "DROP Dwg" Then
dotPosition = dwg.LastIndexOf(".")
slashposition = dwg.LastIndexOf("\")
filenameOnly = dwg.Substring(dotPosition + 0)
filenamefull = dwg.Substring(slashposition + 0)
destination = basismap & dossier & "\dwg" & filenamefull
File.Copy(dwg, destination)
Else
End If
If lbldropfreigab.Text <> "DROP Freigab" Then
dotPosition = freigab.LastIndexOf(".")
slashposition = freigab.LastIndexOf("\")
filenameOnly = freigab.Substring(dotPosition + 0)
filenamefull = freigab.Substring(slashposition + 0)
destination = basismap & dossier & "\freigab" & filenamefull
File.Copy(freigab, destination)
Else
End If
If lbldropab.Text <> "DROP Ab" Then
dotPosition = ab.LastIndexOf(".")
slashposition = ab.LastIndexOf("\")
filenameOnly = ab.Substring(dotPosition + 0)
filenamefull = ab.Substring(slashposition + 0)
destination = basismap & dossier & "\ab" & filenamefull
File.Copy(ab, destination)
Else
End If
If lbldroppost.Text <> "DROP Post" Then
dotPosition = post.LastIndexOf(".")
slashposition = post.LastIndexOf("\")
filenameOnly = post.Substring(dotPosition + 0)
filenamefull = post.Substring(slashposition + 0)
destination = basismap & dossier & "\post" & filenamefull
File.Copy(post, destination)
Else
End If
Else
MsgBox("De mappen voor dit dossiernummer zijn nog niet aangemaakt." & vbCrLf & "Gelieve dit eerst te doen voor dossier " & dossier & ".", MsgBoxStyle.Information, "MELDING")
End If
Call controleerbijlagen()
End Sub
