Vielen Dank für die Hilfe, jetzt läuft das Perfekt.
Worauf man nicht alles achten muss, allein hätte ich das nicht gefunden.
Gruß Abraham
Vielen Dank für die Hilfe, jetzt läuft das Perfekt.
Worauf man nicht alles achten muss, allein hätte ich das nicht gefunden.
Gruß Abraham
Opt('MustDeclareVars', 1)
#include <MsgBoxConstants.au3>
CreateStructure()
Func CreateStructure()
Local $sFileName = "", $iResult = 0, $target
Local Const $hSearch = FileFindFirstFile("*.*")
If $hSearch = -1 Then
MsgBox($MB_SYSTEMMODAL, "", "Error: No files/directories matched the search pattern.")
Return False
EndIf
While 1
$sFileName = FileFindNextFile($hSearch)
If @error Then ExitLoop
If ($sFileName <> @ScriptName) Then
$target = @ScriptDir & '\' & StringRegExpReplace($sFileName, '\.[^\.]+$', '') & '\'
If Not FileExists($target) Then DirCreate($target)
FileMove(@ScriptDir & '\' & $sFileName, $target & $sFileName)
EndIf
WEnd
FileClose($hSearch)
EndFunc ;==>CreateStructure
Alles anzeigen
Verwende dieses Script, da macht er alles mit .au3 Dateien richtig, aber die .mp4 Dateien will er nicht in den erstellten Ordner verschieben.
Vielleicht hat es was mit der größe der Dateien zu tun, hab da keine Ahnung.
Bei meinen Test erstellt er die Ordner korrekt, eine .au3 Datei verschiebt er in den Ordner aber ohne Extension,
eine .mp4 verschiebt od. kopiert er gar nicht in die erstellten Ordner
Hier kann z.B. auch ein regulärer Ausdruck verwendet werden :
$target = @ScriptDir & '\' & StringRegExpReplace($sFileName, '(.*)\..*', "$1") & '\'
Wenn ich das verwende erstellt er brauchbare Ordner, aber er verschiebt die Datei nicht hinein
Ist weiter oben #12
Ganz rund läuft es doch noch nicht, bekomme immer wieder die Fehlermeldung
"Element wurde nicht gefunden" kann diese Ordner dann auch nicht mehr löschen, obwohl sie angezeigt werden
Danke Euch perfekt, ihr habt mir eine menge Arbeit erspart.
Das letzte Script funktioniert einwandfrei, vor dem letzten Edit verhalten sich die erstellten Ordner sehr komisch
die werden im Explorer angezeigt kann die aber nicht löschen od. in ein anderes Verzeichnis kopieren.
Windows meldet da: Element wurde nicht gefunden
Aber nochmals vielen Dank
ja liegen alle in dem gleichen Ordner
Die Ordner sollen im gleichen Verzeichnis (wo Datei ist) erstellt werden und ohne Dateiendung
dann sollte die Datei in den gleich namigen Ordner kopiert werden.
Hab da ein paar hundert Dateien mit denen es so gemacht werden soll.
Gruß
Hallo. muss aus Dateinamen Ordner erstellen, hab da keine Idee wie ich das angehen soll
vielleicht kann man mir da weiterhelfen.
Gruß
Hallo,
danke euch beiden läuft super !!!
Gruß
Abraham
Hallo,
wie schaffe ich es das sich die Progressbar füllt und die Zeit runterläuft ?
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$fill = 15000
[/autoit] [autoit][/autoit] [autoit]GUICreate("My GUI")
[/autoit] [autoit][/autoit] [autoit]GUISetState()
$ID_1 = GUICtrlCreateButton("Countdown", 10, 20, 100)
$ID_2 = GUICtrlCreateButton("Progress", 10, 50, 100)
$progress = GUICtrlCreateProgress(60, 0, 200, 20)
While 1
$msg = GUIGetMsg()
Switch $msg
Case $ID_1
_sleep(30000)
Case $ID_2
_fill()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func _sleep($time)
$tstart = TimerInit()
$stime = $time
Do
GUICtrlCreateLabel("Zeit : " & $stime / 1000 & "sec", 0, 0)
Sleep(1000)
$stime -= 1000
Until TimerDiff($tstart) >= $time
EndFunc ;==>_sleep
Func _fill()
For $x = 0 To 15000
$test = $x ^ 2
GUICtrlSetData($progress, $x * (100 / $fill))
Next
EndFunc ;==>_fill
Das ganze sollte möglichst Synchron laufen.
GUI beenden geht auch nicht solange Progress bzw. Countdown läuft.
Vieleicht gibs da noch eine besssere Lösung wie mein Versuch ?
Danke im voraus
Gruß
Abraham