AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS30.09

Browse Source
This commit is contained in:
SchreiberM
2015-09-30 17:05:36 +02:00
parent 3f25fc766f
commit 95fd5804d2
29 changed files with 2541 additions and 7481 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
app/DD-Record-Organiser/ClassWindream.vb
View File

@@ -549,13 +549,13 @@ Public Class ClassWindream
If LogErrorsOnly = False Then ClassLogger.Add(" - Stream_File wurde gestartet", False)
Dim endgültigerDateiname As String = ""
' Objekt für Datei und Zielverzeichnis anlegen
Dim Quelldatei_Name As String = Path.GetFileName(filenameQuelle)
' Dim Quelldatei_Name As String = Path.GetFileName(filenameQuelle)
If LogErrorsOnly = False Then ClassLogger.Add(" - Quelldatei gelesen", False)
'########
Dim Zielverzeichnis As String = zielpfad
endgültigerDateiname = Zielverzeichnis.Substring(2) & "\" & Quelldatei_Name
endgültigerDateiname = CURRENT_NEWFILENAME.Substring(2)
If LogErrorsOnly = False Then ClassLogger.Add(" - Zielverzeichnis erzeugt", False)
If My.Computer.FileSystem.DirectoryExists(Zielverzeichnis) Then
@@ -572,7 +572,7 @@ Public Class ClassWindream
Return -10
End If
If LogErrorsOnly = False Then ClassLogger.Add(" - Datei kopieren von " & filenameQuelle & " nach " & zielpfad.Substring(2) & "\" & Quelldatei_Name & ".", False)
If LogErrorsOnly = False Then ClassLogger.Add(" - Datei kopieren von " & filenameQuelle & " nach " & endgültigerDateiname & ".", False)
Dim Connect
Dim Session
Dim WMObject
@@ -640,18 +640,7 @@ Public Class ClassWindream
' wenn auf die Datei zugeriffen werden konnte ist sie bereits vorhanden -> Datum anhängen
If LogErrorsOnly = False Then ClassLogger.Add(" - Es konnte zugegriffen werden -> DATEI IST BEREITS VORHANDEN", False)
Err.Clear()
'### Automatische Versionierung mit ~ (Tilde) ###
Dim version As Integer = 2
Dim extension As String = Quelldatei_Name.Substring(Quelldatei_Name.LastIndexOf("."))
Dim Stammname As String = zielpfad.Substring(2) & "\" & Quelldatei_Name.Substring(0, Quelldatei_Name.LastIndexOf("."))
Dim neuername As String = zielpfad.Substring(2) & "\" & Quelldatei_Name.Substring(0, Quelldatei_Name.LastIndexOf("."))
Do While File.Exists("W:\" & neuername & extension) = True
If LogErrorsOnly = False Then ClassLogger.Add(" - Datei " & endgültigerDateiname & " ist vorhanden!", False)
neuername = Stammname & "~" & version
endgültigerDateiname = neuername & extension
version = version + 1
Loop
WMObject = Session.GetNewWMObjectFS(WMEntityDocument, endgültigerDateiname, WMObjectEditModeObject)
If Err.Number > 0 Then
ClassLogger.Add(" FEHLER: Neues WMObject (Kopie) konnte nicht erzeugt werden - Error: '" & Err.Description & "'")