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