Leere Dateien

[ZaLudtske]

Hallo,

ich habe mal wieder ein seltsames Phänomen.

Ich öffne per Script einen Openfiledialog um eine Datei zu suchen und auszuwählen (Quellcode siehe unten). Das klappt auch alles ohne Probleme. Das Seltsame ist nur wenn ich ein leere Datei (Größe 0 Byte) auswähle, wird der Name und Pfad korrekt übertragen, die Datei aber wird im Filesystem gelöscht. Enthält die Datei nur 1 Byte passiert garnichts.


Hat jemand einen Tip wie ich das Löschen der leeren Dateien verhindern kann?

Code

 
Sub Click(Source As Button)
'Funktion:	Die Prozedur öffnen eine Dialogbox zur Auswahl einer Datei 
'
'Argumente:	Source; Objekt-Variable vom Typ 'Button', welche den Bezug auf den angeklickten Button übergibt
'
'Rückgabe:	keine
'
'Calls:			keine
'
'Variablendeklaration
  'Objekt-Variablen
    Dim nwuGUI As notesuiworkspace
    Dim nduThis As notesuidocument
    Dim ndoDest As notesdocument
    Dim nseMain As notessession
    Dim ndbApp As notesdatabase
    Dim ndoProfile As notesdocument
 
  'String-Variablen
    Dim strTitle As String
    Dim strFilter As String
    Dim strInitPath As String
 
  'Variant-Variablen
    Dim vntValue As Variant
 
'Prozedur
 
    Set nseMain = New notessession
    Set ndbApp = nseMain.currentdatabase
    Set ndoProfile = ndbApp.getprofiledocument("Applika")
 
    vntValue = ndoProfile.getitemvalue("t_RueLaInitialpfad")
    strInitPath = vntValue(0)
 
    strTitle = "Importdatei auswählen"
    strFilter = "Text-Dateien (*.txt)|*.txt|Alle Dateien (*.*)|*.*"
 
    Set nwuGUI = New notesuiworkspace
 
    vntValue = nwuGui.OpenfileDialog(False, strTitle, strFilter, strInitPath, "")
 
    If Isarray(vntValue) Then
      Set nduThis = nwuGUI.Currentdocument()
      Set ndoDest = nduThis.Document
 
      ndoDest.replaceitemvalue "t_DateiRueLa", vntValue
 
    End If
 
End Sub