Hi!
Wenn du soweit alles hast dann las die gefundenen datein im ListView anzeigen dort kanst du den Style mit CheckBox nutzen!
LG Kleiner
Beiträge von Kleiner
-
-
Hi !
Ich hatte da vorhin eine Idee habe sie ach umgesetzt!
Ich speicher die Scripte in Asc zeichen bei bedarf werden die Scripte erstellt der einzigen nachteil ist das, die Data.dat Datei sehr groß wird.
Ist auch nur eine Idee!Als keines beispiel im anhang BugFix Array-Scripte und noch ein paar andere!
LG Kleiner
-
Hi Teste das beispiel von mir!
und führ das ein paar mal hintereinander aus!
LG Kleiner
-
Hi!
Dann würde ich vorschlagen das du den \\Cluster\201001 Oder prüfst ob er da ist!
Spoiler anzeigen
[autoit]$DirStart = 'D:\Test\Test_2\Test_3\'
[/autoit] [autoit][/autoit] [autoit]$DirZiel = 'D:\Save\'
[/autoit] [autoit][/autoit] [autoit]If FileExists($DirStart) Then _unterordner($DirZiel, $DirStart)
[/autoit] [autoit][/autoit] [autoit]Func _unterordner($DirZiel, $DirStart)
[/autoit]
$search = FileFindFirstFile($DirStart & '*')
While True
$file = FileFindNextFile($search)
If @error Then ExitLoop
If StringInStr(FileGetAttrib($DirStart & $file), 'D') Then
If Not FileExists($DirZiel & $file) Then
DirCreate($DirZiel & $file)
ConsoleWrite('Ordner wurde Erstellt !! ' & @CRLF)
EndIf
_unterordner($DirZiel & $file & '\', $DirStart & $file & '\')
ElseIf Not FileExists($DirZiel & $file) Or FileGetTime($DirStart & $file, 0, 1) <> FileGetTime($DirZiel & $file, 0, 1) Then
FileMove($DirStart & $file, $DirZiel, 9)
ConsoleWrite('Datei wurde Verschoben !! ' & @CRLF)
EndIf
WEnd
FileClose($search)
EndFunc ;==>_unterordnerLG Kleiner
-
Hi cris!
User Volumeman hat gerade die gleiche frage da habe ich ein Skript gepostet pass das an deine bedürfnisse an wenn fragen offen sind Fragen.
LG Kleiner
-
Hi!
Versuchs so
Spoiler anzeigen
[autoit]#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Date.au3>
Opt("GUIOnEventMode", 1)
$splash = SplashTextOn ("Countdown: ", "", 300, 40, 460, 62,20, "", 10)
GUISetOnEvent(-3, '_exit')
$Form1 = GUICreate("form1", 270, 92, 531, 416)
$Button1 = GUICtrlCreateButton("Beenden", 8, 32, 70, 25, 0)
GUICtrlSetOnEvent(-1, '_exit')
GUISetState()While 1 * Sleep(10)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
While 2
_countdown(3)
Wend
WendFunc _exit()
[/autoit] [autoit][/autoit] [autoit]
Exit
EndFuncFunc _countDown($Countdown)
[/autoit]
$seconds = _DateAdd('s', $Countdown, _NowCalc())
Do
Sleep(100)
$sec = _DateDiff('s', _NowCalc(), $seconds)
$string = StringFormat("%.02d" & ":" & "%.02d" & ":" & "%.02d", _
Mod($sec / 3600, 24), Mod(($sec / 60), 60), Mod($sec, 60))
ControlSetText($splash, "", "Static1", $string)
Until $sec = 0
EndFuncEdit:/ wobei du While 2 nicht brauchst kannst du löschen
LG Kleiner -
Hi Volumeman!
Ich finde die Logik nicht die dahintersteckt, mein gedake deine aussage du hast mehrere Ordner die zB. 201001 darin stecken weitere Ordner zB. 01;02;03
und die möchtest du Verschieben - kopieren wenn noch nicht Existirt oder das Datum sich verändert hat, NUN das GROßE ABER, du lest alles im Ordner Fileserver überprüfen nur wenn da schon Ordner 01 ist dann wird nur das Datum überprüft und gegebenfals ersetzt, also heist das für mich, egal welchen Order du von 201001 o. 201002 o. 201002 durchläust am ende ist es der Letzte Oder in \\Cluster\ den du unter \\Fileserver\ speichers - Vergleichst.Ist das so Gewolt oder habe ich da was nicht verstanden?
LG Kleiner
-
Hi!
Schöne Funktionen ich freu mich auf mehr!
LG Kleiner
-
Hi zwockel!
Doppelklick auf die zeile solte reichen!
LG Kleiner
-
Hi Leute!
Habe herrausgefunden woran es lieg!
Seit Vista muss man die freigabe nochmals über Systemsteuerung Benutzerkontensteuerung austellen gehen!
Danach hast du alle berechtigungen.Edit:/ habe gerade nochmal den Text gelesen, das hast du ja schon gemacht!
LG Kleiner -
Hi!
Soweit ich feststellen konnte ist es so wenn man nicht mit dem Admin Account angemeldet ist, da kommt die frage immer man kann alle rechte dem User übertragen Trotzdem kommt die Frage.
LG Kleiner
-
Hi Leute!
Wie meine Oma immer sagte wenn man sich die Krankheit einredet bekommt man sie auch genaso wird man sie auch wieder los !
LG Kleiner
-
Hi BugFix!
Sehr geil , so zu Coden du meine güte! :wacko:
LG Kleiner
-
Hi Andy!
Das werde ich auf jeden fall mach " weiterentwickeln " halt
LG Kleiner
-
Hi Volumeman!
Ich frage mich warum du in Zeile 14 ein Exit stellst o. bei FileExists u. DirCreate ein abschliessendes "\" setzt ???
Wenn du "\" setzt was ist denn hinterm \.........? okay! so Arbeitet auch deine Funktion zB. C:\Programme\.....<--- und weiter fragt sich die Funktion und macht nichts!Ich habe dein Beispiel angepast:
Spoiler anzeigen
[autoit]Func _unterordner($DirZiel, $DirStart)
[/autoit]
$search = FileFindFirstFile($DirStart & '*')
While True
$file = FileFindNextFile($search)
If @error Then ExitLoop
If StringInStr(FileGetAttrib($DirStart & $file), 'D') Then
If Not FileExists($DirZiel & $file) Then
DirCreate($DirZiel & $file)
ConsoleWrite('Ordner wurde Erstellt !! ' & @CRLF)
EndIf
_unterordner($DirZiel & $file & '\', $DirStart & $file & '\')
ElseIf Not FileExists($DirZiel & $file) Or FileGetTime($DirStart & $file, 0, 1) <> FileGetTime($DirZiel & $file, 0, 1) Then
FileMove($DirStart & $file, $DirZiel, 9)
ConsoleWrite('Datei wurde Verschoben !! ' & @CRLF)
EndIf
WEnd
FileClose($search)
EndFunc ;==>_unterordnerLG Kleiner
-
Ohhhh nö
Gut, wie ich gesehen habe gibt es noch viele viel ander Funktionen die man nach Coden kann aber ..... nagut was sol´s wieter gehts!
LG Kleiner
-
Oder!
[autoit]$i = 0
[/autoit]
Do
ToolTip("Dies ist ein Tool-Tip " & $i + 1 , 0, 0)
Sleep(2000)
$i += 1
Until $i = 3oder
[autoit]$i = 0
[/autoit]
While True
ToolTip("Dies ist ein Tool-Tip " & $i + 1 , 0, 0)
Sleep(2000)
$i += 1
If $i = 3 Then ExitLoop
WEndLG Kleiner
-
Alles Gute auch von mit!
LG Kleiner
-
Hi Leute!
Ich habe vorhin ein link zu Seite https://autoit.de/www.ActiveVB.de in funkey´s Post erstellt, auf dieser seite sind viele viele DLL aufgelistet mit den dazugehöriegen Funktionen Ok manche sind schon Veraltet aber mit den vorlagen könnten wir (alle) wehr natürlich lust hat die WinAPI.au3 erweitern um AutoIT mit vielen nützlichen Funktionen zu erweitern?
Link:
Dell_FunktionenHabe mir ein paar helfer gebastelt, wer will basltelt (Codet) die Funktionen zusammen und last uns die WinApi erweitern!
Meine fertigen Helfer:
Spoiler anzeigen
[autoit]#include 'WinApi_DE.au3'
[/autoit] [autoit][/autoit] [autoit]$Text = 'DWORD cbSize; _int64 i64Size;_int64 i64NumItem'
[/autoit] [autoit][/autoit] [autoit]$Text_1 = 'DWORD cbSize; _int64 i64Size;_int64 i64NumItems'
[/autoit] [autoit][/autoit] [autoit]$Var = ')(/&%$AutoIT.de\}][{'
[/autoit] [autoit][/autoit] [autoit]MsgBox(0, 0, _WinAPI_lstrcmp($Text, $Text_1))
[/autoit] [autoit][/autoit] [autoit]MsgBox(0, $Var, _WinAPI_StrTrim($Var, '\}][{)$(/&%'))
[/autoit] [autoit][/autoit] [autoit]MsgBox(0, 0, _WinAPI_StrIsIntlEqual(True, $Text, $Text_1, 6))
[/autoit] [autoit][/autoit] [autoit]MsgBox(0, 'C:\Windows', _WinAPI_PathStripToRoot('C:\Windows'))
[/autoit] [autoit][/autoit] [autoit]MsgBox(0, 'C:\Windows\System32', _WinAPI_PathStripPath('C:\Windows\System32'))
[/autoit] [autoit][/autoit] [autoit]MsgBox(0, 'C:\Windows\System32', _WinAPI_PathSkipRoot('C:\Windows\System32'))
[/autoit] [autoit][/autoit] [autoit]MsgBox(0, 0, _WinAPI_PathMatchSpec($Text, '*n*'))
[/autoit] [autoit][/autoit] [autoit]MsgBox(0, 0, _WinAPI_SearchTreeForFile('c:\windows', 'user32.dll'))
[/autoit] [autoit][/autoit] [autoit]MsgBox(0, 0, _WinAPI_ANSICodepage())
[/autoit]WinApi_DE
Spoiler anzeigen
[autoit]Func _WinAPI_lstrcmp($lpString1, $lpString2);vergleicht zwei strings
[/autoit] [autoit][/autoit] [autoit]
Dim $aResult = DllCall('kernel32.dll', 'int', 'lstrcmp', 'str', $lpString1, 'str', $lpString2)
If @error Then Return SetError(@error, @extended, False)
Return $aResult[0]
EndFunc ;==>_WinAPI_lstrcmpFunc _WinAPI_FileEncryptionStatus($lpFileName, $lpStatus = '')
[/autoit] [autoit][/autoit] [autoit]
Dim $aResult = DllCall('advapi32.dll', 'bool', 'FileEncryptionStatusA', 'str', $lpFileName, 'dword', $lpStatus)
If @error Then Return SetError(@error, @extended, False)
Return $aResult[1]
EndFunc ;==>_WinAPI_FileEncryptionStatusFunc _WinAPI_EncryptFile($lpFileName)
[/autoit] [autoit][/autoit] [autoit]
Dim $aResult = DllCall('advapi32.dll', 'bool', 'EncryptFileA', 'str', $lpFileName)
If @error Then Return SetError(@error, @extended, False)
Return $aResult[1]
EndFunc ;==>_WinAPI_EncryptFileFunc _WinAPI_DecryptFile($lpFileName, $dwReserved = 0)
[/autoit] [autoit][/autoit] [autoit]
Dim $aResult = DllCall('advapi32.dll', 'bool', 'DecryptFileA', 'str', $lpFileName, 'dword', $dwReserved)
If @error Then Return SetError(@error, @extended, False)
Return $aResult[1]
EndFunc ;==>_WinAPI_DecryptFileFunc _WinAPI_StrTrim($pszSource, $pszTrimChars); Entfernt führende und nachfolgende angegebenen Zeichen aus einer Zeichenfolge.
[/autoit] [autoit][/autoit] [autoit]
Dim $aResult = DllCall('shlwapi.dll', 'bool', 'StrTrimA', 'str', $pszSource, 'str', $pszTrimChars)
If @error Then Return SetError(@error, @extended, False)
Return $aResult[1]
EndFunc ;==>_WinAPI_StrTrimFunc _WinAPI_StrIsIntlEqual($CaseSens, $lpString1, $lpString2, $nChar); Vergleicht eine bestimmte Anzahl von Zeichen vom Beginn des zwei Strings zu ermitteln, ob sie gleich sind.
[/autoit] [autoit][/autoit] [autoit]
Dim $aResult = DllCall('shlwapi.dll', 'bool', 'StrIsIntlEqual', 'bool', $CaseSens, 'str', $lpString1, 'str', $lpString2, 'int', $nChar)
If @error Then Return SetError(@error, @extended, 0)
Return $aResult[0]
EndFunc ;==>_WinAPI_StrIsIntlEqualFunc _WinAPI_PathStripToRoot($pszFile); Entfernt alle Teile des Weges mit Ausnahme des Root-Informationen.
[/autoit] [autoit][/autoit] [autoit]
Dim $aResult = DllCall('shlwapi.dll', 'bool', 'PathStripToRoot', 'str', $pszFile)
If @error Then Return SetError(@error, @extended, 0)
Return $aResult[1]
EndFunc ;==>_WinAPI_PathStripToRootFunc _WinAPI_PathStripPath($pszFile); Entfernt den Pfad Teil eines vollständig qualifizierten Pfad und Datei.
[/autoit] [autoit][/autoit] [autoit]
Dim $aResult = DllCall('shlwapi.dll', 'ptr', 'PathStripPath', 'str', $pszFile)
If @error Then Return SetError(@error, @extended, 0)
Return $aResult[1]
EndFunc ;==>_WinAPI_PathStripPathFunc _WinAPI_PathSkipRoot($pszFile); Analysiert einen Weg, ignorieren Sie den Laufwerksbuchstaben oder Universal Naming Convention (UNC) server / share Pfadelemente.
[/autoit] [autoit][/autoit] [autoit]
Dim $aResult = DllCall('shlwapi.dll', 'str', 'PathSkipRoot', 'str', $pszFile)
If @error Then Return SetError(@error, @extended, False)
Return $aResult[0]
EndFunc ;==>_WinAPI_PathSkipRootFunc _WinAPI_PathMatchSpec($pszFile, $pszSpec); Durchsucht einen String mit einem Microsoft MS-DOS Wild Card Match
[/autoit] [autoit][/autoit] [autoit]
Dim $aResult = DllCall('shlwapi.dll', 'bool', 'PathMatchSpecA', 'str', $pszFile, 'str', $pszSpec)
If @error Then Return SetError(@error, @extended, False)
Return BitAND($aResult[0], 1) = 1
EndFunc ;==>_WinAPI_PathMatchSpecFunc _WinAPI_SearchTreeForFile($RootPath, $InputPathName, $OutputPathBuffer = 255)
[/autoit] [autoit][/autoit] [autoit]
Dim $aResult = DllCall('imagehlp.dll', 'bool', 'SearchTreeForFile', 'str', $RootPath, 'str', $InputPathName, 'str', $OutputPathBuffer)
If @error Then Return SetError(@error, @extended, False)
Return $aResult[3]
EndFunc ;==>_WinAPI_SearchTreeForFileFunc _WinAPI_ANSICodepage()
[/autoit]
Dim $aResult = DllCall("Kernel32.dll", 'uint', 'GetACP')
If @error Then Return SetError(@error, @extended, 0)
Return $aResult[0]
EndFunc ;==>_WinAPI_ANSICodepageIch hofe das wir bald sehr viele neue Funktionen in Autoit begrüßen dürfen!
LG Kleiner
-
Hi!
Habe da noch eine nette seite, warum selber - wenn das schon jemand aufgelistet hat!
Sehr hilfreiche seite!
LG Kleiner