Auto IT - Pfad-Angaben

[agirtas 10]

Hallo,

 

ich schreibe im Moment ein Script das eine ankommende Email in einem bestimmten Ordner speichern soll und dann soll der Anhand dieser Email mit einer batch Datei entschlüsselt werden.

 

Die Email und der Anhang werden gespeichert in einem Verzeichnis die bis zu einem besttimmten Grad feststehen dann geb ich einen sleep für paar Sekunden damit der Benutzer das Zielverzeichnis selbst auswählen kann.

 

Im Zielverzeichnis wird ein Ordner erstellt dessen Namen ich in einer Datei speichere.

 

Problem: Ich muss die batch- Datei (zum entschlüsseln) in den vorhin erwähnten Ordner hinzufügen, kopieren. Nur weiss ich den Pfad nicht da der Benutzer das Zielverzeicnis ja selbst auswählt.

 

Wie komm ich an den Pfad von dem erstellten Ordner??

Wie kann ich eine oder mehrere Dateien in die Zwischenablage kopieren damit ich sie vielleicht einfach einfügen könnte.

#Include <date.au3>

 

Send ("{LAUNCH_MAIL}")

WinWaitActive("Posteingang - Microsoft Outlook")

;erst die Mail an sich Speichern

Send("{ENTER}")

sleep(1000)

$betreff=WinGetTitle("", "")

Send("{ALTDOWN}")

Send("du")

Send("{ALTUP}")

;MsgBox(4096, "", $betreff)

Sleep(20000)

Send ("X:\_Referat_324\_Produkte")

TrayTip ( "Info", "Bitte Zielverzeichnis auswählen", 5,1)

Send("{ENTER}")

sleep(5000)

;erstellt einen neuen Ordner und gibt ihm das Datum und Betreff als Namen

MouseClick ( "left",790 , 371)

$datum=_NowDate()

$OdnerSon= ($datum & $betreff); Ordnername mit Sonderzeichen

$OrdnerName1= StringReplace ( $OdnerSon, ":", "" ,0) ; filtert die Sonderzeichen

$OrdnerName2= StringReplace ( $OrdnerName1, "/", "" ,0) ; filtert die Sonderzeichen

$OrdnerName3= StringReplace ( $OrdnerName2, "\", "" ,0) ; filtert die Sonderzeichen

$OrdnerName4= StringReplace ( $OrdnerName3, "?", "" ,0) ; filtert die Sonderzeichen

$OrdnerName5= StringReplace ( $OrdnerName4, "*", "" ,0) ; filtert die Sonderzeichen

$OrdnerName6= StringReplace ( $OrdnerName5, "<", "" ,0) ; filtert die Sonderzeichen

$OrdnerName7= StringReplace ( $OrdnerName6, ">", "" ,0) ; filtert die Sonderzeichen

$OrdnerName= StringReplace ( $OrdnerName7, "|", "" ,0) ; filtert die Sonderzeichen

;MsgBox(4096, "", $OrdnerName)

Send($OrdnerName)

Send("{ENTER}")

; Ordner wurde erstellt

Sleep(100)

Send("{ENTER}")

Sleep(100)

Send("!S")

; Txt wird gespeichert

Send("{ALTDOWN}")

Send("dp") ; Anlagen speichern

Send("{ALTUP}")

Send("!S")

Sleep(1000)

$title = WinGetTitle("", "")

WinWaitActive ($title)

if ($title="Alle Anlagen Speichern")then

WinWaitActive ($title)

Send("{ENTER}")

Send("{ENTER}")

sleep(1000)

Send("{ENTER}")

elseif ($title="Anlage Speichern") Then

WinWaitActive ($title)

Send("{ENTER}")

sleep(1000)

Send("{ENTER}")

EndIf

[real_tarantoga 11]

du solltest die userangabe als variable einfangen

$input = inputbox("Zielpfad wählen","blabla"[,"pfadvorgabe"])

dann hast du den pfad und lässt ihn per Send($input) auf das Feld, welches du eventuell noch mit dem shortcut oder controlcommand aktiviert hast, schreiben.

das gleiche spiel für alle anderen pfade, die du brauchst ...

 

gruss, r_t