Domino 9 und frühere Versionen > Entwicklung

Nach Datei auf Festplatte suchen?

(1/3) > >>

OCS:
Hallo zusammen,
habe ich die Möglichkeit aus Notes heraus nach einer Datei zu suchen? Möchte gerne eine Datei ausführen, die aber je nach Version in einem anderen Verzeichnis liegt. Die Datei könnte Theoretisch an sechs verschiedenen Orten stehen. Gibt es für Dateien so etwas was wie "If c:\windows\test.exe exists then..." oder kann ich klasisch nach einer Datei suchen und diese dann ausführen?

MfG
Björn

Axel:
Hi,

schau die mal Dir[$] - Funktion an.


Axel

OCS:
Erstmal danke für Deine Antwort! Wenn ich das richtig verstanden habe, muss ich aber einen Pfad vorgeben... was ich brauche ist aber der richtige Pfad! Ich erkläre mal genauer: Ich rufe Adobe Acrobat mit Parametern auf... Mein Problem ist aber, das der im Prinzip aber überall auf dem System installiert sein kann...! Bringt mir diese Funktion da überhaupt etwas?

Axel:
In diesem Fall kommst du damit nicht weiter.

Du bräuchtest eine rekursive Funktion zum Suchen einer Datei. Die gibt es in Notes nicht. Eventuell ließe sich so was und Win-API - Funktionen nachbauen.

Alternative wäre die Registry auszulesen. Dort müsste der Pfad irgendwo verbuddelt sein.

Die entsprechenden Routinen zum Auslesen der Registry findest du hier: Can you access Win32 registry keys in LotusScript?

Könnte auch mit @RegQueryValue über Evaluate gehen.


Axel

OCS:
im prinzip könnte ich aber doch auch sagen:

Sub Click(Source As Button)
   
   Dim session As New NotesSession
   Dim komplett As String
   Dim search As String
   Dim befehl As String
   Dim workspace As New NotesUIWorkspace
   Dim tmp1 As String
   Dim tmp2 As String
   Dim tmp3 As String
   Dim tmp4 As String
   Dim Db As notesdatabase
   Dim zwei As String
   Set db = session.currentdatabase
   Dim doc As New NotesDocument(DB)
   Dim taskId As Integer
   Dim pathname As String
   pathname = Dir$(pathName$, 0)   
   rc = workspace.Dialogbox ( "Suche",True ,True , , , , , "Leitfaden durchsuchen", doc )     
   search = doc.docsearch(0)
   
   
   befehl = |"| + "search=" + search + |"|
   
   'Print doc.docsearch(0)
   'befehl = befehl + zwei
   
   tmp1 = "C:\Programme\Adobe\Acrobat 6.0\Reader\AcroRd32.exe /A "
   'tmp1 = "|C:\Programme\Adobe\Acrobat 6.0\Reader\AcroRd32.exe /A "   
   tmp2 = befehl
   tmp3 = | "\\192.168.1.6\data\OCS\D_Kommunikation_Loesungen_und_Services\Hotline_und_Support\Arbeitsabläufe und Prozesse\Supportleitfaden_eurexc_automotive_aktuell.pdf"|
   
   'tmp4 = "|"
   komplett = tmp1 + tmp2 + tmp3 '+ tmp4
   Print komplett
   
   On Error Goto errversion   
   
   taskId% = Shell(komplett , 1)   
   
   
errversion:
   
   tmp1 = "C:\Programme\Adobe\Acrobat 5.0\Reader\AcroRd32.exe /A "
   komplett = tmp1 + tmp2 + tmp3 '+ tmp4
   Print komplett
   taskId% = Shell(komplett , 1)   
   
   
   
End Sub


oder so ähnlich halt... Hab keinen Plan vpm Fehlerhandling :-)

Navigation

[0] Themen-Index

[#] Nächste Seite