Beiträge von devildevil3

devildevil3

mhh irgendwie peil ichs nicht ganz

die run zeile hat jadie variable $Stream

auf einen extre Button soll er einen befehl schicken müsste ja dann so aussehen

[autoit]

Local Const $stream = Run(@ComSpec & ' /c ' & $command, '', @SW_HIDE, $STDIN_CHILD + $STDERR_CHILD + $STDOUT_CHILD )

[/autoit][autoit][/autoit][autoit]

status()

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

Case $msg=$MBS

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

StdinWrite($stream, $MB);Soll in das CMD schicken
;StdinWrite($stream) ;Beendet CMD?

[/autoit][autoit][/autoit][autoit]

status(); ruft den output auf um infos n der gui zu erzeugen

[/autoit][autoit][/autoit][autoit][/autoit]

und die Funktion status()

[autoit]

func status()

$text = ""
$textline = StdoutRead($stream)
$text = $text & @CRLF & $textline

[/autoit][autoit][/autoit][autoit]

GUICtrlCreateEdit($text,300,10,480,300)
FileWrite("Log.txt",$text&@CRLF)

[/autoit][autoit][/autoit][autoit]

EndFunc

[/autoit]

wo steckt den nun der fehler, sehe da fast keinen unterschied?

wenn ichs aber so aufrufe, freit die gui ein sobald ich den Manuellen Befehl Senden drücke
wie ich es verstanden habe beendet StdinWrite($stream) es das cmd?

mhh ok, habs wenn ich den befehl auf

[autoit]

Local Const $stream = Run(@ComSpec & ' /c ' & $command, '', @SW_HIDE,7)

[/autoit]

klappt es 8o, aber warum darf das nciht stehen

[autoit]

$STDIN_CHILD + $STDERR_CHILD + $STDOUT_CHILD

[/autoit]

devildevil3

ich teste es mal durch, danke erstmal.

man brauch eben nur die richtigen befehle zu wissen

öhm in mom hänge ich bei den variablen

also der run befehl rennt so

[autoit]

$stream = Run(@ComSpec & ' /c ' & $command, '', @SW_HIDE, $STDIN_CHILD + $STDERR_CHILD + $STDOUT_CHILD )

[/autoit]

wie muss da jetzt der StdinWrite aussehen?

[autoit]

StdinWrite($STDIN_CHILD,$MBS)

[/autoit]

wobei $MBS das befehl ist der von gui gelesen wird

dannach kommt die func status um den das zu lesen was die box schreibt

func status()

$text = ""
$textline = StdoutRead($stream)
$text = $text & @CRLF & $textline

GUICtrlCreateEdit($text,300,10,480,300);,BitOR($WS_VSCROLL, $ES_AUTOVSCROLL, $ES_READONLY,$ES_MULTILINE))
FileWrite("Log.txt",$text&@CRLF)

oder ist das der falsche, weil sich nacher das script

wenn ich es so anstelle hängt das sript

devildevil3

also habe eine gui. wo man ip username pass eingibt, und die connetet dann zu ner sql Datenbank

nach dem das connetet hat kann man weiter befehle eingeben. aber hier weiß ich nciht weiter

aber erstmal das script

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

AutoIt Version: 3.2.4.9
Author: myName

[/autoit] [autoit][/autoit] [autoit]

Script Function:
Template AutoIt script.

[/autoit] [autoit][/autoit] [autoit]

#ce ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

; Script Start - Add your code below here

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

#include <Constants.au3>
#include <file.au3>
#include <array.au3>
#include<File.au3>
#include <GUIConstants.au3>
#include <Process.au3>
;Gui erzeugen

[/autoit] [autoit][/autoit] [autoit]

GUICreate("Gui",800,500)
;Ip,User, und PAsswort abfrae
GUICtrlCreateLabel("IP",10,30)
$ip1 = GUICtrlCreateEdit("",70,30,200,20,0)
GUICtrlCreateLabel("User",10,70)
$user1 = GUICtrlCreateEdit("",70,70,200,20,0)
GUICtrlCreateLabel(" Passwort",10,110)
$Pass1 = GUICtrlCreateEdit("",70,110,200,20,0)
;Buttons in Form von befehlen
$verbinden = GUICtrlCreateButton("Verbinden", 130,140);Wagerechte;Höhe

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

GUICtrlCreateLabel("Manueller Befehl",130,190)
GUICtrlCreateEdit("",70,220,200)
GUICtrlCreateButton("Senden",140,250)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$endbutton = GUICtrlCreateButton ("Schließen",730,470)

[/autoit] [autoit][/autoit] [autoit]

GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

dim $Array
While 1
$msg = GUIGetMsg()
If $msg <> 0 Then
$IP = GUICtrlRead($IP1)
$user = GUICtrlRead($user1)
$pass = GUICtrlRead($Pass1)
Select
;Hile Abschnittl
case $msg = $verbinden

[/autoit] [autoit][/autoit] [autoit]

Global $text
Global $command = "SQLcmd.exe "&$user&" "&$pass&" "&$ip

;Abfrage ob daten eingetragen wurden, Setze auf Iniligenz des users, das er gültige ip eingibt
if $ip="" then
MsgBox(0,"Achtung", "Es wurden keine IP eingetragen")
$command=""
EndIf

if $user="" then
MsgBox(0,"Achtung", "Es wurden kein Benutzername eingetragen")
$command=""
EndIf

if $pass="" then
MsgBox(0,"Achtung", "Es wurden kein Passwort eingetragen")
$command=""
EndIf

[/autoit] [autoit][/autoit] [autoit]

$stream = Run(@ComSpec & ' /c ' & $command, '', @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)

While 1
$textline = StdoutRead($stream)
$text = $text & @CRLF & $textline
If @error Then ExitLoop
WEnd

[/autoit] [autoit][/autoit] [autoit]

MsgBox(0, "STDOUT read:", $text)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Case $msg = $endbutton Or $msg = $GUI_EVENT_CLOSE
ExitLoop
EndSelect
EndIf
Wend

[/autoit] [autoit][/autoit] [autoit][/autoit]

also wie kann ich wenn die der runbefehl erolgreich war, die verbindung steht noch nen anchließenden befehl nachschicken?

Infos zu der SQLcmd
http://msdn2.microsoft.com/de-de/library/ms162773.aspx

möchte eben alles über die gui steuern

2te frage

wie kann ich die variable $text statt in der msgbox direkt in der gui verankern? diese sollte sich auch aktualliesieren können

...

ich hoffe ihr habt mich verstanden, wenn nicht einfach fragen, weiß selber kaum wie ich es am besten erkläre

devildevil3

vielen dank, so komme ich extrem weiter

EDIT

also, irgendwie stehe ich auf dem schlauch

wenn ich offline bin und teste fehlt das conneten fehl, ok, das zeigt der mir an.

wenn er allerdings die verbindung aufbaut, geht garnichts mehr

habe also mal das cmd maximiert, immer noch der hänger, dann manuell geschlossen, dann erst komme ich an die infos, so solls ja net sein, möchte noch weiter mit der cmd box arbeiten

so schauste in mom aus

[autoit]

$stream = Run(@ComSpec & ' /c ' & $command, '', @SW_MAXIMIZE, $STDERR_CHILD + $STDOUT_CHILD)

[/autoit]

wenn ich es auf das reduziere steht wenisgsten was in dem cmd fenster

[autoit]

$stream = Run(@ComSpec & ' /c ' & $command, '', @SW_MAXIMIZE)

[/autoit]

nunja, dann aber wieder keine info in der gui

gibts ne ne möglichkeit einfach aller 0,5sekunden zu checken was in den aufgerufenen fenster steht? ohne auf die beendigung zu warten?

EDIT Glaube habs gelöst, kann man es aber noch besser gestalten?
hier mal das ganze script

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

AutoIt Version: 3.2.4.9
Author: myName

[/autoit] [autoit][/autoit] [autoit]

Script Function:
Template AutoIt script.

[/autoit] [autoit][/autoit] [autoit]

#ce ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

; Script Start - Add your code below here

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

#include <Constants.au3>
#include <file.au3>
#include <array.au3>
#include<File.au3>
#include <GUIConstants.au3>
#include <Process.au3>
;Gui erzeugen
GUICreate("Gui",800,500)
;Ip,User, und PAsswort abfrae
GUICtrlCreateLabel("IP",10,30)
$ip1 = GUICtrlCreateEdit("",70,30,200,20,0)
GUICtrlCreateLabel("User",10,70)
$user1 = GUICtrlCreateEdit("",70,70,200,20,0)
GUICtrlCreateLabel(" Passwort",10,110)
$Pass1 = GUICtrlCreateEdit("",70,110,200,20,0)
;Buttons in Form von befehlen
$verbinden = GUICtrlCreateButton("Verbinden", 130,140);Wagerechte;Höhe

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

GUICtrlCreateLabel("Manueller Befehl",130,190)
GUICtrlCreateEdit("",70,220,200)
GUICtrlCreateButton("Senden",140,250)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$endbutton = GUICtrlCreateButton ("Schließen",730,470)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$text="Warte auf Daten"
GUICtrlCreatelabel($text,300,10,400,420)
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

dim $Array
While 1
$msg = GUIGetMsg()
If $msg <> 0 Then
$IP = GUICtrlRead($IP1)
$user = GUICtrlRead($user1)
$pass = GUICtrlRead($Pass1)
Select
;Hile Abschnittl
case $msg = $verbinden

[/autoit] [autoit][/autoit] [autoit]

Global $text
Global $command = "SQLcmd.exe "&$user&" "&$pass&" "&$ip
$text="Verarbeite"
GUICtrlCreatelabel($text,300,10,400,420)

[/autoit] [autoit][/autoit] [autoit]

;Abfrage ob daten eingetragen wurden, Setze auf Iniligenz des users, das er gültige ip eingibt
if $ip="" then
MsgBox(0,"Achtung", "Es wurden keine IP eingetragen")
$command=""
EndIf

if $user="" then
MsgBox(0,"Achtung", "Es wurden kein Benutzername eingetragen")
$command=""
EndIf

if $pass="" then
MsgBox(0,"Achtung", "Es wurden kein Passwort eingetragen")
$command=""
EndIf

MsgBox(0,"Info",$command)
$stream = Run(@ComSpec & ' /c ' & $command, '', @SW_MINIMIZE, $STDERR_CHILD + $STDOUT_CHILD)

[/autoit] [autoit][/autoit] [autoit]

status()

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;MsgBox(0, "STDOUT read:", $text)
;Wie kann ich rausfiltern, nach bestimmten wort?
;GUICtrlCreateLabel( $Text,300,10,320,420)
GUICtrlCreatelabel($text,300,10,400,420)

[/autoit] [autoit][/autoit] [autoit]

Case $msg = $endbutton Or $msg = $GUI_EVENT_CLOSE
ExitLoop
EndSelect
EndIf
Wend

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

func status()
sleep(5000)
$text = ""
$textline = StdoutRead($stream)
$text = $text & @CRLF & $textline

[/autoit] [autoit][/autoit] [autoit]

; 217.205.160.195
GUICtrlCreatelabel($text,300,10,400,420)
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]

devildevil3

Hallo, habe hier nen Programm was nur über cmd geht, ist aber ziemlich nervig immer alle befehle zu tippeln

wollte ne gui machen, verbinden tut er, aber wie bekomme ich den Status raus ob er sich verbunden hat, Autoit info zeigt nix, selbt unter hidden data nicht

eine txt kann man nicht erstellen, weiß da echt nicht weiter, weiß jemand was?

würde mich auch generell für cmd interessieren

devildevil3

mhh, der entsprechende User meinte dauerte 15 Sekunden, und dass Passphrase setht in der exe,

naja dieser User ist wohl der größte Arsch den ich kenne, ich hoffe er kommt nie hierher, ach vergaß, autoit ist in seinen Augen einfach nur lachHaft

schade das es solche decompilierer gibt

EDIT

Er hat sich darüber beschwert das der pfad wo das script lag mit drinnen steht

devildevil3

Hallo, habe gerade nen script woanders gepostet, hat 3 min gedauert, hat sich einwer wegen was beschwert, wie hat er das geschafft zu de-compilieren, es war mit Passphrase geschütztO.o

devildevil3

Morgen;

Das Thema baut hier darauf auf USB Laufwerk finden und Daten kopieren
Also ich habe mir nun mal eine Speicherkarte gekauft, wenn ich das Telefon via USB verbinde habe ich nun 2!!! Laufwerke

eins heißt "Phone"
das andere "Phone Card"

mein bisheriges Script findes nur das erste Laufwerk, das 2te wiederum bleibt ja logischerweiße aus.

Gibt es eine Möglicheit das es wenn das erste abgearbeitet ist danach ein weiteres Laufwerk sucht, ohne in eine Endlosschleife zu gelangen?

Hier mal mein Script, was mit paar extra Funktionen bestückt ist, diese jedoch noch nicht fertig sind

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

AutoIt Version: 3.2.3.6 (beta)
Author: myName

[/autoit] [autoit][/autoit] [autoit]

Script Function:
Kopiert alle Aufnahmen der Kamera (DCIM auf Fetplatte mit namen der Daten

[/autoit] [autoit][/autoit] [autoit]

#ce ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

; Script Start - Add your code below here
#include <GUIConstants.au3>
#include "image_get_info.au3"
#include <file.au3>
$laufwerk = ""
$file = ""

; Handy suchen
$arDrives = DriveGetDrive("ALL")
For $i = 1 To $arDrives[0]
$strDriveType = DriveGetType($arDrives[$i])
If $strDriveType = "CDROM" Or $strDriveType = "FIXED" Then ContinueLoop
$laufwerk = $arDrives[$i]

[/autoit] [autoit][/autoit] [autoit]

;Hier wird Besitzer ermittelt
If FileExists($laufwerk & "\webpage\bookmarks\Thomas.txt") Then
$Name ="Thomas"
MsgBox(0,"Angeschlossendes Telefon",$Name)
EndIf

[/autoit] [autoit][/autoit] [autoit]

If FileExists($laufwerk & "\webpage\bookmarks\Mutti.txt") Then
$Name ="Mutti"
MsgBox(0,"Angeschlossendes Telefon",$Name)
EndIf

If FileExists($laufwerk & "\webpage\bookmarks\Hans.txt") Then
$Name ="Hans"
MsgBox(0,"Angeschlossendes Telefon",$Name)
EndIf

If FileExists($laufwerk & "\webpage\bookmarks\Claudia.txt") Then
$Name ="Claudia"
MsgBox(0,"Angeschlossendes Telefon",$Name)
EndIf

if not FileExists($laufwerk & "\webpage\bookmarks\*.txt") Then
Guiname()
EndIf
;Ergebnis
MsgBox(0,"",$laufwerk)
MsgBox(0,"",$Name)
$file = $laufwerk & "\webpage\bookmarks\"&$Name&".txt"
If FileExists($file) Then ExitLoop
$laufwerk = ""
$file = ""

[/autoit] [autoit][/autoit] [autoit]

;Beginn der Abarbeitung
If $file <> "" Then

$path = $laufwerk &"\DCIM\100MSDCF\" ;Pfad
;;msgbox(0, "", $laufwerk &"<---->"&$path)

[/autoit] [autoit][/autoit] [autoit]

$FileList = _FileListToArray($path)
If (Not IsArray($FileList)) and (@error = 1) Then
;msgbox(0, "", "No Files\Folders Found.")
Exit
EndIf
$liste = "D:\liste.txt"
_FileWriteFromArray($liste,$FileList)
$dateiliste = FileOpen($liste,0)

[/autoit] [autoit][/autoit] [autoit]

$dest = @MyDocumentsDir&"\"&"Backup\Handy\"&$Name&"\DCIM\100MSDCF\"
; hier werden die bilder und videonamen geholt
While 1
$datei = FileReadLine($dateiliste)
if @error = -1 Then
$Zahl = FileReadLine($dateiliste,1)
MsgBox(3,"Info","Alle Daten kopiert ( "&$Zahl&" Dateien). Sollen die Daten von Handy gelöscht werden")
FileDelete("D:\Eigene Dateien\Backup\Handy\"&$Name&"\DCIM\100MSDCF\----...jpg")
call("Loeschen")
ExitLoop
EndIf
;-------------------------------------------------------------------------
$file = $path&$datei

[/autoit] [autoit][/autoit] [autoit]

If @error Then Exit
$aInfo = _ImageGetInfo($file)
If @error Then
;msgbox (0, "Error", "Can't open file.")
Exit
Endif
;msgbox(0,"",$file)
;Dies hier für die Bilder
; Holt hier das Datum der Aufnamhe
$DatumR = _imagegetparam($Ainfo,"DateTime")
$Datum = StringTrimRight($DatumR,9)
$Tag = StringTrimLeft($Datum,8)
$Monat = StringTrimLeft($Datum,5)
$Monat = StringTrimRight($Monat,3)
$Jahr = StringTrimRight($Datum,6)
$UDatum = $jahr & "-" & $monat & "-" & $tag

;Holt hier Die Uhrzeit der Aufnahme
$Stunde = StringTrimLeft($DatumR,11)
$Stunde = StringTrimRight($Stunde,6)
$Minute = StringTrimLeft($DatumR,14)
$Minute = StringTrimRight($Minute,3)
$Sekunde = StringTrimLeft($DatumR,17)
$UZeit= $Stunde&"."&$Minute&"."&$Sekunde& "."
$Zeitdatum = $UDatum&"--"&$UZeit
;msgbox(0,"Info",$Zeitdatum)
$dest2= $dest&$Zeitdatum&"jpg"
;;msgbox(0,"",$file&"<--------<"&$dest2)
;_FileWriteLog("c:\test.txt",$file&"<--------<"&$dest2)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;msgbox(0,"",$file&"---"&$dest2)
Filecopy($file,$dest2,9)
If @error = 0 Then
;msgbox (0, "Error", "Fehler")
Endif
if StringInStr($dest2,"----") Then
;msgbox(0,"","Dumme DAtei")
endif
if StringInStr($file,"3GP")Then
;;msgbox(0,"","Video")

;Für Videos
$t = FileGetTime($file, 1)
If Not @error Then
$t2 = $t[3]
$t3 = $t2+"2";2Stunden für die Zeitzone hinzu
$yyyymdsms = $t[0] & "-" & $t[1] & "-" & $t[2] & "--" & $t3 & "." & $t[4] & "." & $t[5]
$dest3= $dest&$yyyymdsms&".3GP"
FileCopy($file,$dest3,9)
FileClose("c:\liste.txt")
endif
EndIf
wend

[/autoit] [autoit][/autoit] [autoit]

Else
msgbox(0, "", "Handy ist nicht angeschlossen!")
EndIf

[/autoit] [autoit][/autoit] [autoit]

func Loeschen()
$dateiliste2 = FileOpen($liste,0)
While 1
$loeschen = FileReadLine($dateiliste2)
if @error = -1 Then
MsgBox(0,"Info","Alle Daten gelöscht")
MsgBox(0,"Info","Fertig, Handy kann jetzt abgesteckt werden")
ExitLoop
EndIf
$delete = $path&$loeschen
;MsgBox(0,"",$delete)
FileDelete($delete)
WEnd
EndFunc

[/autoit] [autoit][/autoit] [autoit]

;Falls unbekantes Gerät auftaucht, noch nicht fertig
Func Guiname()

MsgBox(3,"Achtung","Konnte das Handy nicht identifizieren geben sie bitte den Namen des Besitzers an")

GUICreate ("Hier Namen eintragen", 700,150)
GUICtrlcreatelabel ("Hier den Namen eintragen",10,15)
$nameL = GUICtrlCreateEdit ("", 180,15,500,20,0);noch werte rein
$save = GUICtrlCreateButton (" Speichern", 200,120)
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

While 1
$msg = GUIGetMsg()
If $msg <> 0 Then
Select
Case $msg = $save
$Name = GUICtrlRead($NameL)
MsgBox(0,"Name",$Name)
$namensdatei = $laufwerk & "\webpage\bookmarks\"
FileWriteLine("D:\"&$Name&".txt",$name)
FileCopy("D:\"&$Name&".txt",$namensdatei)
ExitLoop
EndSelect
EndIf
wend
endfunc

[/autoit]

Eventuel eine weitere funktion einbauen, nach dem alle Bilder durch sind?

Hoffe ihr könnt mir helfen

grüße

devildevil3

kannst du nicht einfach die speicherkarte an pc stecken, würdest doch besser kommen?

grüße

devildevil3

[SIZE=5]
scheut so aus, anhand der ersten 1 datei

Code

2007-05-25 20:45:36 : k:\DCIM\100MSDCF\DSC00013.JPG<--------<D:\Eigene Dateien\Backup\Handy\Thomas\DCIM\100MSDCF\2007-05-23<-->08.51.06.jpg

EDIT ich habs gefunden, hatte nicht daran gedacht das <> nicht erlaubt sind
man vor einer stunde lief es noch, dann rechner abgekackt , nun jetzt kopierter keine Videos mehr, 'Bilder gehen einwandfrei
filegettime gibt leider einen Fehler aus weiß aber nicht warum , da der pfad zu datei passt.
hier mal das script
die variable $name = wird später noch behandelt, erstmal muss es laufen^

Spoiler anzeigen

[autoit]

#include "image_get_info.au3"
#include <file.au3>
$name = "Mutti"
$laufwerk = ""
$file = ""

; Handy suchen
$arDrives = DriveGetDrive("ALL")
For $i = 1 To $arDrives[0]
$strDriveType = DriveGetType($arDrives[$i])
If $strDriveType = "CDROM" Or $strDriveType = "FIXED" Then ContinueLoop
$laufwerk = $arDrives[$i]
$file = $laufwerk & "\webpage\bookmarks\Sony Ericsson.url"
If FileExists($file) Then ExitLoop
$laufwerk = ""
$file = ""
Next

[/autoit] [autoit][/autoit] [autoit]

;if FileExists($laufwerk&"webpage\bookmarks\Thomas.txt") Then
; MsgBox(0,"",$laufwerk&"\webpage\bookmarks\Thomas.txt")
; thomas()
; MsgBox(0,"",$Name)
; EndIf

[/autoit] [autoit][/autoit] [autoit]

If $file <> "" Then

$path = $laufwerk &"\DCIM\100MSDCF\" ;Pfad
;;msgbox(0, "", $laufwerk &"<---->"&$path)

[/autoit] [autoit][/autoit] [autoit]

$FileList = _FileListToArray($path)
If (Not IsArray($FileList)) and (@error = 1) Then
;msgbox(0, "", "No Files\Folders Found.")
Exit
EndIf
$liste = "D:\liste.txt"
_FileWriteFromArray($liste,$FileList)
$dateiliste = FileOpen($liste,0)

[/autoit] [autoit][/autoit] [autoit]

$dest = @MyDocumentsDir&"\"&"Backup\Handy\"&$Name&"\DCIM\100MSDCF\"
; hier werden die bilder und videonamen geholt
While 1
$datei = FileReadLine($dateiliste)
if @error = -1 Then
MsgBox(0,"Info","Alle Daten kopiert")
FileDelete("D:\Eigene Dateien\Backup\Handy\"&$Name&"\DCIM\100MSDCF\----...jpg")
ExitLoop
EndIf
;-------------------------------------------------------------------------
$file = $path&$datei

[/autoit] [autoit][/autoit] [autoit]

If @error Then Exit
$aInfo = _ImageGetInfo($file)
If @error Then
;msgbox (0, "Error", "Can't open file.")
Exit
Endif
;msgbox(0,"",$file)
;Dies hier für die Bilder
; Holt hier das Datum der Aufnamhe
$DatumR = _imagegetparam($Ainfo,"DateTime")
$Datum = StringTrimRight($DatumR,9)
$Tag = StringTrimLeft($Datum,8)
$Monat = StringTrimLeft($Datum,5)
$Monat = StringTrimRight($Monat,3)
$Jahr = StringTrimRight($Datum,6)
$UDatum = $jahr & "-" & $monat & "-" & $tag

;Holt hier Die Uhrzeit der Aufnahme
$Stunde = StringTrimLeft($DatumR,11)
$Stunde = StringTrimRight($Stunde,6)
$Minute = StringTrimLeft($DatumR,14)
$Minute = StringTrimRight($Minute,3)
$Sekunde = StringTrimLeft($DatumR,17)
$UZeit= $Stunde&"."&$Minute&"."&$Sekunde& "."
$Zeitdatum = $UDatum&"--"&$UZeit
;msgbox(0,"Info",$Zeitdatum)
$dest2= $dest&$Zeitdatum&"jpg"
;;msgbox(0,"",$file&"<--------<"&$dest2)
_FileWriteLog("c:\test.txt",$file&"<--------<"&$dest2)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;msgbox(0,"",$file&"---"&$dest2)
FileMove($file,$dest2,9)
If @error = 0 Then
;msgbox (0, "Error", "Fehler")
Endif

msgbox(0,"",$file)
if StringInStr($dest2,"----") Then
msgbox(0,"","Dumme DAtei")
endif
if StringInStr($file,".3gp")Then
msgbox(0,"","Video")
msgbox(0,"",$file)
;Für Videos
$t = FileGetTime($file, 1)
If Not @error Then
$t2 = $t[3]
$t3 = $t2+"2"
$yyyymdsms = $t[0] & "." & $t[1] & "." & $t[2] & "---" & $t3 & "." & $t[4] & "." & $t[5]
msgbox(0, "Creation date of File", $yyyymdsms)
MsgBox(0,"",$dest&"----"&$yyyymdsms)
$dest3= $dest&$yyyymdsms&".3gp"
MsgBox(0,"",$dest3)
msgbox(0,"",$file&"-------"&$dest3)
FileCopy($file,$dest3,9)
endif

[/autoit] [autoit][/autoit] [autoit]

EndIf
wend
;von Zeile 32

[/autoit] [autoit][/autoit] [autoit]

Else
msgbox(0, "", "Handy ist nicht angeschlossen!")
EndIf

[/autoit]

[/SIZE]
----------------------------

Hallo ich arbeite mal wieder an meinen Script weiter, wollte jetzt noch einige Funktionen einbauen

Eine davon wäre ein Fortschritssbalken, es gibt zwar einige Funktionen hier( im Board)

aber nichts was mir hilft

Ich bräuchte eine Funtion was mir den Fortschrit des Filereadline ausgibt

den dort sind die Pfade drinnen, hier nochmal das Script

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

AutoIt Version: 3.2.3.6 (beta)
Author: myName

[/autoit] [autoit][/autoit] [autoit]

Script Function:
Kopiert alle Aufnahmen der Kamera (DCIM auf Fetplatte mit namen der Daten

[/autoit] [autoit][/autoit] [autoit]

#ce ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

; Script Start - Add your code below here
#include <GUIConstants.au3>
#include "image_get_info.au3"
#include <file.au3>
$laufwerk = ""
$file = ""

; Handy suchen
$arDrives = DriveGetDrive("ALL")
For $i = 1 To $arDrives[0]
$strDriveType = DriveGetType($arDrives[$i])
If $strDriveType = "CDROM" Or $strDriveType = "FIXED" Then ContinueLoop
$laufwerk = $arDrives[$i]

[/autoit] [autoit][/autoit] [autoit]

;Hier wird Besitzer ermittelt
If FileExists($laufwerk & "\webpage\bookmarks\Thomas.txt") Then
$Name ="Thomas"
MsgBox(0,"Angeschlossendes Telefon",$Name)
EndIf

[/autoit] [autoit][/autoit] [autoit]

If FileExists($laufwerk & "\webpage\bookmarks\Mutti.txt") Then
$Name ="Mutti"
MsgBox(0,"Angeschlossendes Telefon",$Name)
EndIf

If FileExists($laufwerk & "\webpage\bookmarks\Hans.txt") Then
$Name ="Hans"
MsgBox(0,"Angeschlossendes Telefon",$Name)
EndIf

If FileExists($laufwerk & "\webpage\bookmarks\Claudia.txt") Then
$Name ="Claudia"
MsgBox(0,"Angeschlossendes Telefon",$Name)
EndIf

if not FileExists($laufwerk & "\webpage\bookmarks\*.txt") Then
Guiname()
EndIf
;Ergebnis
MsgBox(0,"",$laufwerk)
MsgBox(0,"",$Name)
$file = $laufwerk & "\webpage\bookmarks\"&$Name&".txt"
If FileExists($file) Then ExitLoop
$laufwerk = ""
$file = ""

[/autoit] [autoit][/autoit] [autoit]

;Beginn der Abarbeitung
If $file <> "" Then

$path = $laufwerk &"\DCIM\100MSDCF\" ;Pfad
;;msgbox(0, "", $laufwerk &"<---->"&$path)

[/autoit] [autoit][/autoit] [autoit]

$FileList = _FileListToArray($path)
If (Not IsArray($FileList)) and (@error = 1) Then
;msgbox(0, "", "No Files\Folders Found.")
Exit
EndIf
$liste = "D:\liste.txt"
_FileWriteFromArray($liste,$FileList)
$dateiliste = FileOpen($liste,0)

[/autoit] [autoit][/autoit] [autoit]

$dest = @MyDocumentsDir&"\"&"Backup\Handy\"&$Name&"\DCIM\100MSDCF\"
; hier werden die bilder und videonamen geholt
While 1
$datei = FileReadLine($dateiliste)
if @error = -1 Then
$Zahl = FileReadLine($dateiliste,1)
MsgBox(3,"Info","Alle Daten kopiert ( "&$Zahl&" Dateien). Sollen die Daten von Handy gelöscht werden")
FileDelete("D:\Eigene Dateien\Backup\Handy\"&$Name&"\DCIM\100MSDCF\----...jpg")
call("Loeschen")
ExitLoop
EndIf
;-------------------------------------------------------------------------
$file = $path&$datei

[/autoit] [autoit][/autoit] [autoit]

If @error Then Exit
$aInfo = _ImageGetInfo($file)
If @error Then
;msgbox (0, "Error", "Can't open file.")
Exit
Endif
;msgbox(0,"",$file)
;Dies hier für die Bilder
; Holt hier das Datum der Aufnamhe
$DatumR = _imagegetparam($Ainfo,"DateTime")
$Datum = StringTrimRight($DatumR,9)
$Tag = StringTrimLeft($Datum,8)
$Monat = StringTrimLeft($Datum,5)
$Monat = StringTrimRight($Monat,3)
$Jahr = StringTrimRight($Datum,6)
$UDatum = $jahr & "-" & $monat & "-" & $tag

;Holt hier Die Uhrzeit der Aufnahme
$Stunde = StringTrimLeft($DatumR,11)
$Stunde = StringTrimRight($Stunde,6)
$Minute = StringTrimLeft($DatumR,14)
$Minute = StringTrimRight($Minute,3)
$Sekunde = StringTrimLeft($DatumR,17)
$UZeit= $Stunde&"."&$Minute&"."&$Sekunde& "."
$Zeitdatum = $UDatum&"--"&$UZeit
;msgbox(0,"Info",$Zeitdatum)
$dest2= $dest&$Zeitdatum&"jpg"
;;msgbox(0,"",$file&"<--------<"&$dest2)
;_FileWriteLog("c:\test.txt",$file&"<--------<"&$dest2)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;msgbox(0,"",$file&"---"&$dest2)
$result = FileCopy($file,$dest2,9)
If @error = 0 Then
;msgbox (0, "Error", "Fehler")
Endif
if StringInStr($dest2,"----") Then
;msgbox(0,"","Dumme DAtei")
endif
if StringInStr($file,"3GP")Then
;;msgbox(0,"","Video")

;Für Videos
$t = FileGetTime($file, 1)
If Not @error Then
$t2 = $t[3]
$t3 = $t2+"2";2Stunden für die Zeitzone hinzu
$yyyymdsms = $t[0] & "-" & $t[1] & "-" & $t[2] & "--" & $t3 & "." & $t[4] & "." & $t[5]
$dest3= $dest&$yyyymdsms&".3GP"
$result = FileCopy($file,$dest3,9)
FileClose("c:\liste.txt")
endif
EndIf
wend

[/autoit] [autoit][/autoit] [autoit]

Else
msgbox(0, "", "Handy ist nicht angeschlossen!")
EndIf

[/autoit] [autoit][/autoit] [autoit]

func Loeschen()
$dateiliste2 = FileOpen($liste,0)
While 1
$loeschen = FileReadLine($dateiliste2)
if @error = -1 Then
MsgBox(0,"Info","Alle Daten gelöscht")
MsgBox(0,"Info","Fertig, Handy kann jetzt abgesteckt werden")
ExitLoop
EndIf
$delete = $path&$loeschen
;MsgBox(0,"",$delete)
FileDelete($delete)
WEnd
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func Guiname()

MsgBox(3,"Achtung","Konnte das Handy nicht identifizieren geben sie bitte den Namen des Besitzers an")

GUICreate ("Hier Namen eintragen", 700,150)
GUICtrlcreatelabel ("Hier den Namen eintragen",10,15)
$nameL = GUICtrlCreateEdit ("", 180,15,500,20,0);noch werte rein
$save = GUICtrlCreateButton (" Speichern", 200,120)
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

While 1
$msg = GUIGetMsg()
If $msg <> 0 Then
Select
Case $msg = $save
$Name = GUICtrlRead($NameL)
MsgBox(0,"Name",$Name)
$namensdatei = $laufwerk & "\webpage\bookmarks\"
FileWriteLine("D:\"&$Name&".txt",$name)
FileCopy("D:\"&$Name&".txt",$namensdatei)
ExitLoop
EndSelect
EndIf
wend
endfunc

[/autoit]

Wie ihr seht wird der Filecopy Befehl nun halt öfters aufgerufen,halt für jede Zeile die der Befehl Filereadline ausgibt, deswegen wäre dort ein Balken Nutzlos

hast du eine Idde?

eine 2te Frage wäre

am Ende des Scriptkomt ja die Frage ob die Daten gelöscht werden sollen, zu Auswahl steht halt "JA" "Nein=Abbruch"

Wie erreiche ich das bei Nein und Abbruch keine Daten gelöscht werden?

das 3 wäre hier zu finden

Nochmalige Probleme USB Lauwerke zu finden

devildevil3

die pfade passen, und returnwert ist halt 0 für fehler, hatte ich doch in den script schon drinnen, oder meinst du es anders?

danke
grüße

devildevil3

Zitat

Original von peethebee
Hi!

2h zuwenig, weil Zeit in GMT, nehme ich mal an.

peethebee

dachte ich schon, aber 2 stunden passt mit der zeit aus dem bild überein, nur wie gesagt bei filegettime 2 stunden zu zeitig, komisch warum das handy das nicht richtig macht ?(, ich mien in foto stehts auch richtig

edit habs jetzt fast

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

AutoIt Version: 3.2.3.6 (beta)
Author: myName

[/autoit] [autoit][/autoit] [autoit]

Script Function:
Template AutoIt script.

[/autoit] [autoit][/autoit] [autoit]

#ce ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

; Script Start - Add your code below here

[/autoit] [autoit][/autoit] [autoit]

#include "image_get_info.au3"
#include <file.au3>

$laufwerk = ""
$file = ""

; Handy suchen
$arDrives = DriveGetDrive("ALL")
For $i = 1 To $arDrives[0]
$strDriveType = DriveGetType($arDrives[$i])
If $strDriveType = "CDROM" Or $strDriveType = "FIXED" Then ContinueLoop
$laufwerk = $arDrives[$i]
$file = $laufwerk & "\webpage\bookmarks\Sony Ericsson.url"
If FileExists($file) Then ExitLoop
$laufwerk = ""
$file = ""
Next

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

If $file <> "" Then
$path = $laufwerk &"\DCIM\100MSDCF\" ;Pfad
;MsgBox(0, "", $laufwerk &"<---->"&$path)

[/autoit] [autoit][/autoit] [autoit]

$FileList = _FileListToArray($path)
If (Not IsArray($FileList)) and (@error = 1) Then
MsgBox(0, "", "No Files\Folders Found.")
Exit
EndIf
$liste = "D:\liste.txt"
_FileWriteFromArray($liste,$FileList)
$dateiliste = FileOpen($liste,0)

[/autoit] [autoit][/autoit] [autoit]

$dest = @MyDocumentsDir&"\"&"Backup\Handy\Thomas\DCIM\100MSDCF\"
;hier werden die bilder und videonamen geholt
While 1
$datei = FileReadLine($dateiliste)
;-------------------------------------------------------------------------
$file = $path&$datei

[/autoit] [autoit][/autoit] [autoit]

If @error Then Exit
$aInfo = _ImageGetInfo($file)
If @error Then
MsgBox (0, "Error", "Can't open file.")
Exit
Endif
MsgBox(0,"",$file)
;Dies hier für die Bilder
;Holt hier das Datum der Aufnamhe
$DatumR = _imagegetparam($Ainfo,"DateTime")
$Datum = StringTrimRight($DatumR,9)
$Tag = StringTrimLeft($Datum,8)
$Monat = StringTrimLeft($Datum,5)
$Monat = StringTrimRight($Monat,3)
$Jahr = StringTrimRight($Datum,6)
$UDatum = $jahr & "-" & $monat & "-" & $tag

;Holt hier Die Uhrzeit der Aufnahme
$Stunde = StringTrimLeft($DatumR,11)
$Stunde = StringTrimRight($Stunde,6)
$Minute = StringTrimLeft($DatumR,14)
$Minute = StringTrimRight($Minute,3)
$Sekunde = StringTrimLeft($DatumR,17)
$UZeit= $Stunde&"."&$Minute&"."&$Sekunde& "."
$Zeitdatum = $UDatum&"<-->"&$UZeit
MsgBox(0,"Info",$Zeitdatum)
$dest2= $dest&$Zeitdatum&"jpg"
MsgBox(0,"",$file&"<--------<"&$dest2)
Filecopy($file,$dest2,9)
If @error = 0 Then
MsgBox (0, "Error", "Fehler")
Endif

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

wend
EndIf ;von Zeile 32

[/autoit]

Problem er kopiert nix

devildevil3

sodale habe ein wenig gebastelt

für die Bilder hole ich mir das Datum aus den Bilder Infos, für die Videos mit filegettime+2Stunden, damit es der Wahrheit entspricht ka warum immer 2 Stunden zu wenig sind

habe mich entschieden das ich die Bilder umbenennen möchte, dies geht mit filecopy halt zb

I:\DCIM\100MSDCF\DSC00001.jpg nach
D:\Eigene Dateien\Backup\Handy\Mutti\DCIM\100MSDCF\2007.05.18<-->11.59.21.jpg
das datum in eine Variable, die für jedes Bild geändert wird
Problem ist dann noch wie wähle ich alle daten aus, die dann kopiert werden, mit der richtigen zeit, zz ist nur das Grundgerüst

Spoiler anzeigen

[autoit][/autoit] [autoit][/autoit] [autoit]

#include "image_get_info.au3"
#include <file.au3>

$laufwerk = ""
$file = ""

; Handy suchen
$arDrives = DriveGetDrive("ALL")
For $i = 1 To $arDrives[0]
$strDriveType = DriveGetType($arDrives[$i])
If $strDriveType = "CDROM" Or $strDriveType = "FIXED" Then ContinueLoop
$laufwerk = $arDrives[$i]
$file = $laufwerk & "\webpage\bookmarks\Sony Ericsson.url"
If FileExists($file) Then ExitLoop
$laufwerk = ""
$file = ""
Next

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

If $file <> "" Then
$Video = $laufwerk &"\DCIM\100MSDCF\*.3gp";eventuell So
$Bilder = $laufwerk &"\DCIM\100MSDCF\*.jpg"; Eventuel so^

[/autoit] [autoit][/autoit] [autoit]

MsgBox(0,"",$Video)
MsgBox(0, "", $laufwerk)
$file = FileOpenDialog("Please select file", "", "Handy aufnahmen(*.3gp;*.jpg;*.tif;*.gif;*.bmp;*.png)");,1+4);
If @error Then Exit
$aInfo = _ImageGetInfo($file)
If @error Then
MsgBox (0, "Error", "Can't open file.")
Exit
Endif

[/autoit] [autoit][/autoit] [autoit]

;Für Videos
$t = FileGetTime($file, 1)
If Not @error Then
$t2 = $t[3]
$t3 = $t2+"2"
$yyyymdsms = $t[0] & "/" & $t[1] & "/" & $t[2] & "<-->" & $t3 & "." & $t[4] & "." & $t[5]
MsgBox(0, "Creation date of File", $yyyymdsms)
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;Dies hier für die Bilder
;Holt hier das Datum der Aufnamhe
$DatumR = _imagegetparam($Ainfo,"DateTime")
$Datum = StringTrimRight($DatumR,9)
$Tag = StringTrimLeft($Datum,8)
$Monat = StringTrimLeft($Datum,5)
$Monat = StringTrimRight($Monat,3)
$Jahr = StringTrimRight($Datum,6)
$UDatum = $jahr & "-" & $monat & "-" & $tag

;Holt hier Die Uhrzeit der Aufnahme
$Stunde = StringTrimLeft($DatumR,11)
$Stunde = StringTrimRight($Stunde,6)
$Minute = StringTrimLeft($DatumR,14)
$Minute = StringTrimRight($Minute,3)
$Sekunde = StringTrimLeft($DatumR,17)
$UZeit= $Stunde&"."&$Minute&"."&$Sekunde& "."
MsgBox(0,"Info",$UDatum&"<-->"& $UZeit)

[/autoit] [autoit][/autoit] [autoit]

Else
MsgBox(0, "", "Handy ist nicht angeschlossen!")
EndIf

[/autoit]

bis jetzt setzt er nur nen Pfad , und gibt die richtigen zeiten in meinen Format aus

devildevil3

Zitat

Original von th.meger
Hi,

vielleicht hilft dir dies ja auch?

Spoiler anzeigen

[autoit]
$strComputer = "."
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\cimv2")
[/autoit] [autoit][/autoit] [autoit]
$colEvents = $objWMIService.ExecNotificationQuery _
("Select * From __InstanceOperationEvent Within 5 Where " _
& "TargetInstance isa 'Win32_LogicalDisk'")
[/autoit] [autoit][/autoit] [autoit]
While 1
$objEvent = $colEvents.NextEvent
If $objEvent.TargetInstance.DriveType = 2 Then
Select
Case $objEvent.Path_.Class()="__InstanceCreationEvent"
Consolewrite("Drive " & $objEvent.TargetInstance.DeviceId & " has been added." & @CR)
Case $objEvent.Path_.Class()="__InstanceDeletionEvent"
Consolewrite("Drive " & $objEvent.TargetInstance.DeviceId & " has been removed."& @CR)
EndSelect
EndIf
WEnd
[/autoit]

So long,

Mega

Alles anzeigen

sers

das ist auch nicht schlecht, er lister halt alle Laufwerke auf die hinzukommen, oder entfernt werden

aber mit der anderen Methode, gehe ich sicher ob ich das richtige Laufwerk ansteuere(wegen der Sache mit dem bookmarks.url)

aber dennoch danke, dafür habe sicher auch mal eine Verwendung, sogar eventuell hier in diesen Script

danke

devildevil3

ok jetzt wird die Meldung ausgegeben

danke dafür

hier das teilweiße angepasst Script aus dem Beispiel

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

AutoIt Version: 3.2.3.6 (beta)
Author: myName

[/autoit] [autoit][/autoit] [autoit]

Script Function:
Template AutoIt script.

[/autoit] [autoit][/autoit] [autoit]

#ce ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

; Script Start - Add your code below here

[/autoit] [autoit][/autoit] [autoit]

#include "image_get_info.au3"
$file = FileOpenDialog("Please select file", "", "Image files (*.jpg;*.tif;*.gif;*.bmp;*.png)");,1+4);
If @error Then Exit
$aInfo = _ImageGetInfo($file)
If @error Then
MsgBox (0, "Error", "Can't open file.")
Exit
Endif

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$Datum = _imagegetparam($Ainfo,"DateTime")
$Datum = StringTrimRight($Datum,8)

[/autoit] [autoit][/autoit] [autoit]

MsgBox(0,"Datum",$Datum)
MsgBox (0, "All Picture Info", $aInfo)
MsgBox (0, "Only Width and Height", _ImageGetParam($aInfo, "Width") & "x" & _ImageGetParam($aInfo, "Height"))

[/autoit]

das 1+4 in Kommentar ist eben das um alles zu markieren, bringt aber mit den restlichen Script nichts

gibts was besseres außer die daten auflisten zu lassen?

devildevil3

moin

also zudeinen Script spuckt der Fehler aus wenn kein Handy angesteckt ist kein Problem, kann man dem Bentzer dann eine MsgBox ausgeben
EDIT ich sehe gerade de funktion ist ingeaut, warum beendet sich das script dann aber ohne meldung, nachforschung beginnt

Probleme wo ich noch habe ist wegen dem Datum Geschichte

man muss ja eine Datei auswählen, Problem ist wie wähle ich 50und mehr aus?

man hat zwr die möglichkeit 50 auszuwählen , aber dann spnnt der rest ds Scriptes

muss mich noch ein wenig durchkämpfen, eventuell eine liste mit den dateipfaden die nach und nach abgearbeit wird

devildevil3

danke erstmal, wie aber wird die variable ($Source) deklariert, dort meckert mich das Script dann an

noch eine frage, ist es in irgeneiner Form nochglich Bild Infos herauszufiltern

=> habe ein Sonyericson K800 (meine Mutter auch, für die es haupsächlich ist), wenn ich dort Bilder mache, alle auf den PC spiele, und von Handy lösche geht die Dateinummer wieder auf 000001

=> bei der nächsten Sicherung Überschriebt es also die Bilder

wenn ich für jede Sicherung ein neues Datum anlege, häufen sich die doppelten Dateien unter Musik etc

von daher wäre es praktisch wenn das Script aus den Bild das erstelldatum ausließt und für dieses das Verzeichnis anlegt sprich
bild wurde am 18.05.07 aufgenommen => kommt ins verzeichnis 2007.05.18

die reihenfolge wegen der übersicht in Explorer

geht das zu realisieren

wird zwar was größeres wird aber für einige interessant sein

könnte dann so aussehen

****\Mutti\DCIM\100MSDCF\Datum der Bilder\
****\Mutti\musik\
****\Mutti\other\

das wäre ein sich lohnendes Script

gte nacht und danke

devildevil3

puh, habs noch nicht ale umgeändert gehabt, habe ich verwirrung gestiftet

hatte zuerst monika, dachte aber dann mutti wäre dann doch treffneder;)
Script

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

AutoIt Version: 3.2.3.6 (beta)
Author: myName

[/autoit] [autoit][/autoit] [autoit]

Script Function:
Template AutoIt script.

[/autoit] [autoit][/autoit] [autoit]

#ce ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

; Script Start - Add your code below here

[/autoit] [autoit][/autoit] [autoit]

#include <file.au3>
$file = "I:\webpage\bookmarks\Sony Ericsson.url"
If not FileExists($file) Then
MsgBox(1,"Fehler", "Laufwerk I: nicht vorhanden")
EndIf
$file1 = "g:\webpage\bookmarks\Sony Ericsson.url"

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

if FileExists($file) Then
$laufwerk = "i:"
MsgBox(0,"",$laufwerk)
$jahr = @YEAR
$monat = @MON
$tag = @MDAY
$datum = $jahr&"."&$monat&"."&$tag
MsgBox(0,"",$datum)
$mutti = @MyDocumentsDir&"\"&"Backup\Handy\Mutti\"
$Pfad = $mutti&$datum
MsgBox(0,"",$pfad)
DirCreate($pfad)
MsgBox(1,"Info",$laufwerk &" , "&$Pfad)
DirCopy($Laufwerk,$Pfad,0)
endif

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]

sry nochmals, war zu schnell und habe das halbumgeänderte Script gepostet

Alina den thread hatte ich schon gefunden, aber bin dadurch leider auch nicht weitergekommen

grüße

devildevil3

Zitat
Original von bernd670
Zur Zeit lautet dein Kopierbefehl
Code
Copy I: 2007.5.17
ich glaube nicht das es das ist was Du wolltest oder?

eigentlich lauter er doch

Code

Copy I: , D:\Eigene Dateien\Backup\Handy\Monika\2007.05.17

bei $Pfad füge ich doch $monika(D:\Eigene Dateien\Backup\Handy\Monika und das Datum (2007.05.17) zusammen

ist auch so, steht zumindest in der msgbox

[Blockierte Grafik: http://img225.imageshack.us/img225/5650/infoec3.jpg]

grüße

devildevil3

hallo

wie mache ich es das das Script mir den richtigen Laufwerkbuchstaben ausließt?

Nachher sollen alle Daten von diesen Laufwerk auf die Festplatte kopiert werden

ok, bei mir ist dieser Buchstabe fest( bei anderen Leuten aber logischerweise ein anderer)

mom schaut es so aus (es überprüft ob I: verfügbar ist und der richtige angesteckt ist

Spoiler anzeigen

[autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

#include <file.au3>
$file = "I:\webpage\bookmarks\Sony Ericsson.url"

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

if FileExists($file) Then
$laufwerk = "i:"
MsgBox(0,"",$laufwerk)
$jahr = @YEAR
$monat = @MON
$tag = @MDAY
$datum = $jahr&"."&$monat&"."&$tag
MsgBox(0,"",$datum)
$Monikai = @MyDocumentsDir&"\"&"Backup\Handy\Monika\"
$Pfad = $mutti&$datum
MsgBox(0,"",$pfad)
DirCreate($pfad)
DirCopy($Laufwerk,$Pfad,0)
endif

[/autoit]

was das Problem ist, es kopiert nichts, weiß aber nicht warum weil keine \ bei den Pfaden am den Enden sind

kann mir wer helfen

Beiträge von devildevil3

verschiedene Probleme mit gui und Dosbox

verschiedene Probleme mit gui und Dosbox

verschiedene Probleme mit gui und Dosbox

Status aus eine CMD Box rausfiltern?

Status aus eine CMD Box rausfiltern?

Nur eine Frage wegen de-compilieren

Nur eine Frage wegen de-compilieren

Nochmalige Probleme USB Lauwerke zu finden

Auf Dateien einer Digitalkamera zugreifen?

USB Laufwerk finden und Daten kopieren

USB Laufwerk finden und Daten kopieren

USB Laufwerk finden und Daten kopieren

USB Laufwerk finden und Daten kopieren

USB Laufwerk finden und Daten kopieren

USB Laufwerk finden und Daten kopieren

USB Laufwerk finden und Daten kopieren

USB Laufwerk finden und Daten kopieren

USB Laufwerk finden und Daten kopieren

USB Laufwerk finden und Daten kopieren

USB Laufwerk finden und Daten kopieren