Domino 9 und frühere Versionen > ND7: Entwicklung

Dateipfad auswählen Lotus Notes /Domino 8.5

<< < (3/7) > >>

ascabg:
Ein kleines Stueckchen Code waere hier eventuell hilfreich.


Andreas

moprheusfgh:
Sub Click(Source As Button)
   Dim ws As New NotesUIWorkspace
   Dim pfad As String
   Dim uiws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Set uidoc = uiws.CurrentDocument
  REM Get filename from user
   filenames = ws.OpenFileDialog( _       ' hier wird der variablen das der Pfad zugewiesen
   True, "Select files to be deleted",, "c:\work")
   If Not(Isempty(filenames)) Then
      Forall filename In filenames     
         Kill filename                        ' hier wird mit dem Pfad weitergearbeitet
      End Forall
   End If
End Sub

Sorry....

ascabg:
Darf der Anwender, der den Button angeklickt hat, denn die gewaehlte Datei loeschen bzw. in dem betreffenden Verzeichnis?

Sieht mir stark nach einem Rechte-Problem auf Seiten des BS aus.


Andreas

moprheusfgh:
Ja ich hab lokale adminrechte und kann auch die Datei löschen.

Hier nochmal mein kompletten script:

Sub Click(Source As Button)
   Dim visio As Variant
   Dim excel As Variant
   Dim uiws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Set uidoc = uiws.CurrentDocument
   Dim result As Integer
   Dim path As String
   Dim run As String
   Dim pfad As String
   
   Dim ws As New NotesUIWorkspace
  REM Get filename from user
   filenames = ws.OpenFileDialog( _       ' hier wird der variablen das der Pfad zugewiesen
   True, "Select files to be deleted",, "c:\work")
   If Not(Isempty(filenames)) Then
      Forall filename In filenames     
         Kill filename                        ' hier wird mit dem Pfad weitergearbeitet
      End Forall
   End If
   
   
   path=Environ$( "ProgramFiles" )
   
   pfad = "Select File"
   

   
   Sleep (5)
   run = path + "\Microsoft Office\Office12\OrgWiz.exe " _
   + "/NAME-FIELD=Name / MANAGER-FIELD=Vorgesetzter  /DISPLAY-FIELDS=Name,Abteilung   /UNIQUEID-FIELD=Eindeutige_ID /FILENAME=pfad"
   result = Shell(run, 1)
   
   
   
   
   
   
   
   
End Sub

Klafu:
du hast da glaub was falsch verstanden:


Sub Click(Source As Button)
   Dim ws As New NotesUIWorkspace
   filenames = ws.OpenFileDialog( _    
   True, "Select files to be deleted",, "c:\work")
   If Not(Isempty(filenames)) Then
      
run = path + "\Microsoft Office\Office12\OrgWiz.exe " _
   + "/NAME-FIELD=Name / MANAGER-FIELD=Vorgesetzter  /DISPLAY-FIELDS=Name,Abteilung   /UNIQUEID-FIELD=Eindeutige_ID /FILENAME="+filenanames
   result = Shell(run, 1)

   End If
End Sub

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete