This commit is contained in:
SchreiberM
2015-09-29 12:16:23 +02:00
parent 379a63d9a8
commit 80247e18dd
31 changed files with 1808 additions and 524 deletions

View File

@@ -392,6 +392,7 @@ Public Class ClassWindream
' Index aus den Eigenschaften auslesen
oIndex = oRelProperties.Item(0)
'Dim o = oRelProperties.Item(2)
' Indexname speichern
aIndexNames(j) = oIndex.aName
Next
@@ -586,7 +587,7 @@ Public Class ClassWindream
End If
If My.Computer.FileSystem.DirectoryExists(Zielverzeichnis) Then
If LogErrorsOnly = False Then ClassLogger.Add(" ...targetPath exisitiert", False)
If LogErrorsOnly = False Then ClassLogger.Add(" ...targetPath existiert", False)
' Überprüfen ob der zu Kopieren notwendige Speicherplatz auf Ziellaufwerk vorhanden ist
Dim dvr As New DriveInfo(vWLaufwerk & ":")
Dim freeSpace = dvr.TotalFreeSpace