Eine letzte frage habe ich noch,
das standart trennzeichen in einer listview ist
|
[/autoit]
kann man das ändern auf
->
[/autoit]Geht das??
Beiträge von subzero007
-
-
ok funktioniert
danke
Gibt es eine möglichkeit das tooltip in die mitte der gui zu setzen habe nichts in der hilfe gefunden ?? -
Funktioniert so in etwa:
so sieht die listview aus:
Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist. es geht um die Untere Listview
so sieht die xcopy.txt aus:
C:\Drivers\Monitor\TPFLX.ICM
C:\Drivers\Monitor\TPLCD.CAT
C:\Drivers\Monitor\TPLCD.icm
C:\Drivers\Monitor\TPLCD.INF
C:\Drivers\Monitor\TPLCD.PNF
5 Datei(en) kopiertHier mein Code:
[autoit]Func CopyWithProgress($srcDir, $destDir)
[/autoit][autoit][/autoit][autoit]If StringRight($srcDir, 1) = "\" Then $srcDir = StringLeft($srcDir, StringLen($srcDir) - 1)
[/autoit][autoit][/autoit][autoit]
If StringRight($destDir, 1) <> "\" Then $destDir = $destDir & "\"
If Not FileExists($destDir) Then DirCreate($destDir)
$lastpath = StringTrimLeft($srcDir, StringInStr($srcDir, "\", "", -1))
Run(@ComSpec & " /c " & @SystemDir & '\xcopy ' & $srcDir & ' ' & $destDir & $lastpath & '\ /D /S /E /V /C /H /R /Y >' & @scriptdir & '\xcopy.txt', "", @SW_HIDE)
Sleep(1000)
While ProcessExists ("xcopy.exe")
ToolTip ("Bitte warten. Xcopy läuft....", 0, 0)
Wend
ToolTip('')
$line = FileRead (@ScriptDir & "\xcopy.txt")
GUICtrlCreateListViewItem($line, $hListView1)
;FileDelete (@Scriptdir & "\xcopy.txt")EndFunc ;==>CopyWithProgress
[/autoit]Kann man das Optimieren?
oder hat da jemand eine andere idee?Gruß
Subzero -
ich weiss nicht was ich falsch mache oder was anders ist so gehts...
[autoit]Func CopyWithProgress($srcDir, $destDir)
[/autoit][autoit][/autoit][autoit]If StringRight($srcDir, 1) = "\" Then $srcDir = StringLeft($srcDir, StringLen($srcDir) - 1)
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
If StringRight($destDir, 1) <> "\" Then $destDir = $destDir & "\"
If Not FileExists($destDir) Then DirCreate($destDir)
;$srcSize = DirGetSize($srcDir, 1)
;$1_percent = $srcSize[0] / 100
;Run('XCOPY "'& $srcDir & '" "' & $destDir & '" /D /S /E /V /C /H /R /O /Y')$lastpath = StringTrimLeft($srcDir, StringInStr($srcDir, "\", "", -1))
[/autoit]
$TSDIS = Run(@ComSpec & " /c " & @SystemDir & '\xcopy ' & $srcDir & ' ' & $destDir & $lastpath & '\ /D /S /E /V /C /H /R /Y', "", @SW_HIDE)
EndFunc ;==>CopyWithProgressund so nicht ??
[autoit]Func CopyWithProgress($srcDir, $destDir)
[/autoit][autoit][/autoit][autoit]If StringRight($srcDir, 1) = "\" Then $srcDir = StringLeft($srcDir, StringLen($srcDir) - 1)
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
If StringRight($destDir, 1) <> "\" Then $destDir = $destDir & "\"
If Not FileExists($destDir) Then DirCreate($destDir)
;$srcSize = DirGetSize($srcDir, 1)
;$1_percent = $srcSize[0] / 100
;Run('XCOPY "'& $srcDir & '" "' & $destDir & '" /D /S /E /V /C /H /R /O /Y')$lastpath = StringTrimLeft($srcDir, StringInStr($srcDir, "\", "", -1))
[/autoit][autoit][/autoit][autoit]
$Console = Run(@ComSpec & " /c " & @SystemDir & '\xcopy ' & $srcDir & ' ' & $destDir & $lastpath & '\ /D /S /E /V /C /H /R /Y', "", @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
ConsoleWrite(@SystemDir & '\xcopy ' & $srcDir & ' ' & $destDir & $lastpath & '\ /D /S /E /V /C /H /R /Y')
While 1
$line &= StdoutRead($Console)
If @error Then ExitLoop
WEnd
GUICtrlCreateListViewItem($line, $hListView1)EndFunc
[/autoit]Wo mache ich den fehler??
-
was mache ich falsch ?
[autoit]#include <Constants.au3>
[/autoit][autoit][/autoit][autoit]
Global $lineFunc CopyWithProgress($srcDir, $destDir)
[/autoit][autoit][/autoit][autoit]
If Not FileExists($destDir) Then DirCreate($destDir)
$lastpath = StringTrimLeft($srcDir, StringInStr($srcDir, "\", "", -1))
$console = Run(@ComSpec & " /c " & @SystemDir & '\xcopy ' & $srcDir & ' ' & $destDir & $lastpath & '\ /D /S /E /V /C /H /R /Y', "", @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
While 1
$line &= StdoutRead($Console)
If @error Then ExitLoop
WEndGUICtrlCreateListViewItem($line, $hListView1)
[/autoit]
EndFunc ;==>CopyWithProgress -
habe das jetzt so gelöst:
[autoit]Local $savedays = IniRead(@systemdir & "\save.ini", 'sicherung', 'tage', 0)
[/autoit][autoit][/autoit][autoit]
Local $time = IniRead(@systemdir & "\save.ini", 'sicherung', 'zeit', '1600')While 1
[/autoit][autoit]
If @HOUR & @MIN = $time Then ; prüfe Uhrzeit
; prüfen ob aktueller Tag für Sicherung vorgesehen ist
If BitAND($savedays, 2^(@WDAY-1)) Then
_save()
; Sicherung starten
EndIf
EndIf
Sleep(60000)
WEndIniWrite(@SystemDir & '\save.ini', 'Startzeit', 'Uhr', StringReplace(GUICtrlRead($Time), ':', ''))
[/autoit] -
Ich will ja vom xcopy den inhalt in eine datei umleiten das datum uhrzeit ändernt sich ja permanent,
hast du eine idee wie ich das am besten mache? -
Ich wäre auch mit der lösung zu frieden wenn ich es in der listview darstelle ohne es vorher in eine datei umzuleiten >
aber ich weiss nicht wie? -
Danke...
für den Tipp..
Habe bereits das Problem gelöst und bin schon an meinem nächsten problem dran -
Hallo,
habe folgendes Problem
[autoit]Run(@ComSpec & " /c " & @SystemDir & '\xcopy ' & $srcDir & ' ' & $destDir & '\ /D /S /E /V /C /H /R /Y > copy.log', "", @SW_HIDE)
[/autoit]möchte gerne den inhalt der log in einer listview darstellen in echtzeit also das er alles was er in die log schreibt in der listview dargestellt wird ?
Eine idee?
-
Hey,
ich komme jetzt etwas näher an meine lösung des problems:
Ich suche sowas in etwa nur bloss um einen order auszuwählen:
Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist. Weil so kann ich auch manuell server suchen bzw. per hand eingeben,
Geht das?Danke
SubZero -
ich benutze das:
FileSelectFolder("", 'c:')was muss ich als start ordner wählen damit es auch mit dem Netzwerkpfaden klappt also anstatt dem c:
es geht bei meinen bedürfniss nicht um verbundene Laufwerke die als laufwerksbuchstabe verbunden sind sondern
ich will wirklich den pfad irgendwie angeben können
\\server\share\ordnerGeht das?
-
Also ich wollte ja ein ein fileselectfolder haben wo ich auch Unc Pfade selektieren kann \\server\share,
ich glaube ich wurde falsch verstanden ??Gruß
SubZero -
Hey,
habe eine frage möchte gerne FileSelectFolder einen ordner auswählen,
gibt es irgendeine alternative wo ich auch UNC Pfade auswählen also wie beim Explorer?? -
Hey,
jeweilige beim Auslesen der Tage aus der ini siehe Post 1 und 2
und abfragen ob jahr monat tag stunde minute in frage kommen wenn ja eine exe starten
das ganze in einer schleife alle 30 sekundenwie mache ich das ?
-
Nein eben nicht,
es wird eine GUi werden wo zu verschieden tagen der anwender was sichern kann und wo er das auch frei definiren kann,und es soll über einen dienst laufen der den job übernimmt.
Und die Gui wird nur für die config der ini benötigt.hier die gui.
Spoiler anzeigen
[autoit]#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#include <DateTimeConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <TreeViewConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include <File.au3>
Local $arCheckBox[7]
Global $ini = @ScriptDir & '\save.ini'
Global $path = @ScriptDir & '\lastsave'
Global $hfile = @ScriptDir & '\lastsave.log'$Form1 = GUICreate("Sicherung", 918, 457, 219, 121)
[/autoit] [autoit][/autoit] [autoit]
$Tab1 = GUICtrlCreateTab(16, 24, 873, 417)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Backup")
$arCheckBox[6] = GUICtrlCreateCheckbox("Montag", 24, 361, 57, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$arCheckBox[5] = GUICtrlCreateCheckbox("Dienstag", 88, 361, 57, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$arCheckBox[4] = GUICtrlCreateCheckbox("Mittwoch", 152, 361, 65, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$arCheckBox[3] = GUICtrlCreateCheckbox("Donnerstag", 224, 361, 73, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$arCheckBox[2] = GUICtrlCreateCheckbox("Freitag", 304, 361, 57, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$arCheckBox[1] = GUICtrlCreateCheckbox("Samstag", 368, 361, 57, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$arCheckBox[0] = GUICtrlCreateCheckbox("Sonntag", 432, 361, 65, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")$Time = GUICtrlCreateDate('15:00', 24, 393, 70, 21, $DTS_TIMEFORMAT)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
;GUICtrlCreateDate('00:00:00', 10, 10, 100, 30, $DTS_TIMEFORMAT)
$DTM_SETFORMAT_ = 0x1032
$style = "HH:mm"
GUICtrlSendMsg($Time, $DTM_SETFORMAT_, 0, $style)$hListView = GUICtrlCreateListView("Quelle|Ziel", 24, 73, 850, 246)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSendMsg(-1, 0x101E, 0, 50)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$add = GUICtrlCreateButton("+", 24, 321, 75, 25)
GUICtrlSetFont(-1, 20, 400, 0, "Arial")
$del = GUICtrlCreateButton("-", 104, 321, 75, 25)
GUICtrlSetFont(-2, 20, 400, 0, "Arial")
$Task_Plannen = GUICtrlCreateButton("Task_Planen", 100, 390, 75, 25)
$Save = GUICtrlCreateButton("Save-Settings", 800, 49, 75, 25)GUICtrlSetFont(-1, 8, 400, 0, "Arial")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$Quelle = GUICtrlCreateLabel("Quelle", 24, 49, 34, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Sichern = GUICtrlCreateButton("Sichern", 184, 321, 75, 25)
GUICtrlSetFont(-1, 15, 400, 0, "Arial")
$TabSheet2 = GUICtrlCreateTabItem("Restore")
$Input2 = GUICtrlCreateInput("Input1", 31, 81, 353, 22)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Restore_Ordner = GUICtrlCreateLabel("Restore_Ordner", 24, 57, 79, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Quellpfadzeigen = GUICtrlCreateButton("Quellpfadzeigen", 392, 129, 83, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$TreeView1 = GUICtrlCreateTreeView(40, 137, 345, 241)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Wiederherstellen = GUICtrlCreateButton("Wiederherstellen", 392, 353, 83, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Button1 = GUICtrlCreateButton("suchen", 392, 81, 43, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Verfuegbare_sicherungen = GUICtrlCreateLabel("Verfuegbare_sicherungen", 48, 113, 126, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Offnen = GUICtrlCreateButton("Offnen", 392, 321, 83, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW);if FileExists(@ScriptDir & '\lastsave.log') Then
[/autoit] [autoit][/autoit] [autoit]
; _format()
; EndIf
If FileExists(@ScriptDir & '\save.ini') Then
$ini = IniRead(@ScriptDir & '\save.ini', "Wochentag", "tage", 0)
For $i = 6 To 0 Step -1
If BitAND($ini, 2 ^ $i) Then
GUICtrlSetState($arCheckBox[$i], $GUI_CHECKED)
EndIf
Next
Local $aData = IniReadSection(@ScriptDir & "\save.ini", "Quelle-Ziele")
; _ArrayDisplay($aData)
For $i = 1 To UBound($aData) - 1
GUICtrlCreateListViewItem($aData[$i][0] & "|" & $aData[$i][1], $hListView)
Next
EndIf
#EndRegion ### END Koda GUI section ###While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSEExit
[/autoit] [autoit][/autoit] [autoit]
Case $add
$sfolder = FileSelectFolder("Wählen den zu Sichernden Ordner:", 'c:');if @error Then Return
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$dfolder = FileSelectFolder("Wählen Sie den Ziel Ordner:", 'c:')
GUICtrlCreateListViewItem($sfolder & '|' & $dfolder, $hListView)
;if @error Then Return
$hWnd = $hListView
If FileExists($path & ".log") Then FileDelete($path & ".log")
FileWrite($path & ".log", _GUICtrlListView_Export($hWnd, 1, ','))Case $del
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
_GUICtrlListView_DeleteItemsSelected($hListView)
$hWnd = $hListView
If FileExists($path & ".log") Then FileDelete($path & ".log")
FileWrite($path & ".log", _GUICtrlListView_Export($hWnd, 1, ','))
Case $Sichern
_xcopy()
Case $Task_Plannen
_iniwrite()
case $Save
_iniwrite()
EndSwitch
WEndFunc _iniwrite()
[/autoit] [autoit][/autoit] [autoit]
;FileDelete($ini)
IniDelete(@ScriptDir & '\save.ini', 'Quelle-Ziele')Local $checked = 0
[/autoit] [autoit][/autoit] [autoit]
For $i = 0 To 6
If BitAND(GUICtrlRead($arCheckBox[$i]), $GUI_CHECKED) Then
$checked = BitOR($checked, 2 ^ $i)
EndIfNext
[/autoit] [autoit][/autoit] [autoit]
For $i = 0 To _GUICtrlListView_GetItemCount($hListView) - 1;hier zählst du die einträge
$var1 = _GUICtrlListView_GetItemText($hListView, $i, 0)
$var2 = _GUICtrlListView_GetItemText($hListView, $i, 1)
;IniWrite('save.ini', 'Backup', 'Quelle'&$i, $var1)
;IniWrite('save.ini', 'Backup', 'Ziel'&$i, $var2);IniWrite('save.ini', 'Quelle-Ziele', $var1&$i, $var2&$i)
[/autoit] [autoit][/autoit] [autoit]
IniWrite(@ScriptDir & '\save.ini', 'Quelle-Ziele', $var1, $var2)Next
[/autoit] [autoit][/autoit] [autoit]
; Next
IniWrite('save.ini', 'Wochentag', 'tage', $checked)
MsgBox(0, "", $Time)
IniWrite('save.ini', 'Startzeit', 'Uhr', GUICtrlRead($Time))EndFunc ;==>_iniwrite
[/autoit] [autoit][/autoit] [autoit]Func _iniread()
[/autoit] [autoit][/autoit] [autoit]
#cs Muster-INI
[sicherung]
tage=42
#ce
; 2 + 8 + 32 = Mo/Mi/Fr; aus INI lesen
[/autoit] [autoit][/autoit] [autoit]
Local $savedays = IniRead($ini, 'sicherung', 'tage', 0); prüfen ob aktueller Tag für Sicherung vorgesehen ist
[/autoit] [autoit][/autoit] [autoit]
If BitAND($savedays, 2 ^ (@WDAY - 1)) Then
; starte Sicherung
EndIf
EndFunc ;==>_inireadFunc _GUICtrlListView_Export($hWnd, $exType = 0, $Delim = Default) ; $exType=0 Array / $exType=1 String
[/autoit] [autoit][/autoit] [autoit]
If Not IsHWnd($hWnd) Then $hWnd = GUICtrlGetHandle($hWnd)
Local $row = _GUICtrlListView_GetItemCount($hWnd)
If $exType Then
If $Delim <> Default Then Local $oldDelim = Opt('GUIDataSeparatorChar', $Delim)
Local $sOut = ''
For $i = 0 To $row - 1
$sOut &= _GUICtrlListView_GetItemTextString($hWnd, $i) & @CRLF
Next
If $Delim <> Default Then Opt('GUIDataSeparatorChar', $oldDelim)
Return $sOut
EndIf
Local $col = _GUICtrlListView_GetColumnCount($hWnd)
Local $aOut[$row][$col]
If $col = 1 Then
ReDim $aOut[$row]
For $i = 0 To UBound($aOut) - 1
$aOut[$i] = _GUICtrlListView_GetItemText($hWnd, $i)
Next
Return $aOut
EndIf
For $i = 0 To UBound($aOut) - 1
For $j = 0 To UBound($aOut, 2) - 1
$aOut[$i][$j] = _GUICtrlListView_GetItemText($hWnd, $i, $j)
Next
Next
Return $aOut
EndFunc ;==>_GUICtrlListView_ExportFunc _Load() ; Datenbank-Datei laden
[/autoit] [autoit][/autoit] [autoit]
_GUICtrlListView_DeleteAllItems($hListView) ; Das Handle eben noch bestimmen (s. Anfang des Threads)Local $sItem
[/autoit] [autoit][/autoit] [autoit]
; $FileOpenDialog = FileOpenDialog("Pc Liste Wählen", @ScriptDir & "\", "Pc Liste (*.txt;*.csv)", 1 + 4)
Local $hfile = FileOpen(@ScriptDir & '\lastsave.log', 0) ; Datei zum lesen öffnen
If $hfile <> -1 Then ; wenn das öffnen erfolgreich war, dann...
_GUICtrlListView_BeginUpdate($hListView) ; Listview sperren
While True ; Endlosschleife
$sItem = FileReadLine($hfile) ; Zeile aus der Datei lesen
If @error Then ExitLoop ; wenn das Ende der Datei erreicht ist, dann Endlosschleife verlassen
GUICtrlCreateListViewItem($sItem, $hListView) ; mit den eingelesenen Daten einen neuen Listview-Eintrag erstellen
WEnd
_GUICtrlListView_EndUpdate($hListView) ; Listview wieder freigeben
FileClose($hfile) ; Datei schließen
EndIf
EndFunc ;==>_LoadFunc CopyWithProgress($srcDir, $destDir)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
If StringRight($srcDir, 1) = "\" Then $srcDir = StringLeft($srcDir, StringLen($srcDir) - 1)
If StringRight($destDir, 1) <> "\" Then $destDir = $destDir & "\"
If Not FileExists($destDir) Then DirCreate($destDir)
$srcSize = DirGetSize($srcDir, 1)
$1_percent = $srcSize[0] / 100
;Run('XCOPY "'& $srcDir & '" "' & $destDir & '" /D /S /E /V /C /H /R /O /Y')$lastpath = StringTrimLeft($srcDir, StringInStr($srcDir, "\", "", -1))
[/autoit] [autoit][/autoit] [autoit]
$TSDIS = Run(@ComSpec & " /c " & @SystemDir & '\xcopy ' & $srcDir & ' ' & $destDir & $lastpath & '\ /D /S /E /V /C /H /R /Y', "", @SW_HIDE)
ProgressOn('Copy ' & $srcDir & ' ' & $destDir & $lastpath, $1_percent & "%", "")
Do
$destSize = DirGetSize($destDir & $lastpath, 1)
ProgressSet(Round($destSize[0] / $1_percent, 2), Round($destSize[0] / (1024 * 1024), 2) & " MB of " & Round($srcSize[0] / (1024 * 1024), 2) & " MB Kopiert" & @CRLF _
& $destSize[1] & " von " & $srcSize[1] & " Dateien Kopiert." & @CRLF _
& $destSize[2] & " von " & $srcSize[2] & " Ordner Kopiert.", Round($destSize[0] / $1_percent, 2) & "% - Fertig!")
Sleep(200)
Until $destSize[0] >= $srcSize[0]
ProgressOff()
EndFunc ;==>CopyWithProgressFunc _xcopy()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
For $i = 0 To _GUICtrlListView_GetItemCount($hListView) - 1;hier zählst du die einträge
$var1 = _GUICtrlListView_GetItemText($hListView, $i, 0)
$var2 = _GUICtrlListView_GetItemText($hListView, $i, 1)
CopyWithProgress($var1, $var2)Next
[/autoit] [autoit][/autoit] [autoit]EndFunc ;==>_xcopy
[/autoit] [autoit][/autoit] [autoit]Func _format()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Dim $sFilePath = @ScriptDir & '\lastsave.log'
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Dim $outFile = @ScriptDir & '\lastsave.log'
Dim $aArray
_FileReadToArray($sFilePath, $aArray) ; datei in Array lesenFor $i = 1 To $aArray[0] ; zeilenweise durchgehen
[/autoit] [autoit][/autoit] [autoit]$aArray[$i] = StringReplace($aArray[$i], ',', '|') ; der String wird ersetzt durch den String mit der Eingabe
[/autoit] [autoit][/autoit] [autoit]
NextIf FileExists($outFile) Then FileDelete($outFile) ; falls Ausgabedatei bereits vorhanden - löschen
[/autoit] [autoit][/autoit] [autoit]
_FileWriteFromArray($outFile, $aArray, 1) ; vom Array in Ausgabedatei schreibenEndFunc ;==>_format
[/autoit]und hier die exe die gestartet werden soll:
Spoiler anzeigen
[autoit][/autoit] [autoit][/autoit] [autoit]Local $aData = IniReadSection(@ScriptDir & "\save.ini", "Quelle-Ziele")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
; _ArrayDisplay($aData)
For $i = 1 To UBound($aData) - 1
_CopyWithProgress($aData[$i][0], $aData[$i][1])
;GUICtrlCreateListViewItem($aData[$i][0] & "|" & $aData[$i][1], $hListView)
NextFunc _CopyWithProgress($srcDir, $destDir)
[/autoit]
If StringRight($srcDir, 1) = "\" Then $srcDir = StringLeft($srcDir, StringLen($srcDir) - 1)
If StringRight($destDir, 1) <> "\" Then $destDir = $destDir & "\"
If Not FileExists($destDir) Then DirCreate($destDir)
;$srcSize = DirGetSize($srcDir, 1)
;$1_percent = $srcSize[0] / 100
;Run('XCOPY "'& $srcDir & '" "' & $destDir & '" /D /S /E /V /C /H /R /O /Y')
$lastpath = StringTrimLeft($srcDir, StringInStr($srcDir, "\", "", -1))
$TSDIS = Run(@ComSpec & " /c " & @SystemDir & '\xcopy ' & $srcDir & ' ' & $destDir & $lastpath & '\ /D /S /E /V /C /H /R /Y', "", @SW_HIDE)
;ProgressOn('Copy ' & $srcDir & ' ' & $destDir & $lastpath, $1_percent & "%", "")
EndFunc ;==>CopyWithProgressKann mir jemand unter die Arme greifen??
Danke
-
Mann könnte ja auch auf die zweite exe verzichten und es als funktion in die vom dienst packen der datum und uhrzeit prüft .
dann kann man sich eine exe sparen.
oder? -
Hey,
Ich bin dabei mein sicherungstool zu schreiben bin ja auch schon sehr weit gekommen für meine verhältnisse.
jetzt habe ich vor einen dienst mit srvany.exe zum laufen zu bringen der eine ini datei prüft:
[Wochentag]
tage=80
[Startzeit]
Uhr=16:00
[Quelle-Ziele]
F:\=C:\
F:\=x:\
F:\=y:\er soll tage=*
"Montag, Dienstag, Mittwoch, Donnerstag, Freitag, samstag ,Sonntag"..siehe beschreibung von Bugfix :
[ gelöst ] Chekbox in ini eintragen und Uhrzeit....mir ausgeben dann will ich es in die funktion von Oscar übergeben:
Wochentag(e) nach Datum umwandelnDer wandelt wochentage in datum um .
dann soll er prüfen ob: [Wochentag] und [Startzeit] in frage kommt wenn der zeitpunkt erreicht ist dann soll er eine exe starten er soll er alle 30 sekunden diese prüfung machen.
die exe macht nichts ausser [Quelle-Ziele] zu kopieren.Kann mir jemand unter die Arme greifen ?
-
Hey,
ich scheitere schon beim Zurückwandeln 80 zu Wochentag?? "siehe poste 2"
und habe keine idee wie ich anschliessend:
Jahr,Monat, Tag, stunde, Minute und abfrage das alles alle 30 sekunden,
wenn es in frage kommt eine exe zu starten und dann soll es wieder zurück in die SchleifeKann mir jemand mal unter die arme greifen ??
-
Genau,
wie mache ich das?
Das ist ja das wo ich nicht weiterkomme?