Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: kobo3 am 12.11.03 - 10:16:53

Titel: Überprüfen ob Netzwerkpfad vorhanden
Beitrag von: kobo3 am 12.11.03 - 10:16:53

Hi Leuts,

nöchte per LotusScript Dateien aus einem Netzwerkpfad in ein RT-Feld hängen. Wenn der Ordner und die Datei vorhanden ist, funktioniert das sinwandfrei aber sobald die Datei nicht vorhanden ist gibts ne Fehlermeldung was ja auch logisch ist.

......
strFilename =entryTestBox.ColumnValues(4),
If Dir$(strFileName), 16) <>"" Then      

strFilename enthält den Netzwerkpfad (\\Computername\Freigabe$\Ordner)

funktioniert aber irgendwie nicht. Gibt es eine andere Möglichkeit???

Ach ja wenn wir einmal dabei sind, kann man die Datei in dem RT-Feld per Script auslesen ohne sie auf der Platte etc. zwischzuspeichern???

habe das Forum schon durchsucht und nix passendes gefunden
Vielen Dank im Voraus
Gruß Kobo

Titel: Re:Überprüfen ob Netzwerkpfad vorhanden
Beitrag von: eknori am 12.11.03 - 10:25:48

versuche es mal mit


Function ExistFileDirDrive(FilePathName As String) As Boolean
   Dim nTest As String
   
   nTest = Lcase$(FilePathName)
   If Len(nTest) = 1 Then
      Select Case Left$(nTest, 1)
      Case "a" To "z"
         nTest = FilePathName & ":\"
      End Select
   Elseif Len(nTest) = 2 Then
      Select Case Left$(nTest, 2)
      Case "a:" To "z:"
         nTest = FilePathName & "\"
      End Select
   End If
   On Error Resume Next
   ExistFileDirDrive = Cbool(Getattr(nTest) Or vbNormal _
   Or vbHidden Or vbSystem Or vbArchive Or vbDirectory)
End Function

die Funktion kommt auch mit UNC Pfaden klar

Sub Click(Source As Button)
   Msgbox ExistFileDirDrive ("\\Dream\Vol")
End Sub

Ulrich