Batchschleife in Kixscript einbauen
Guten Morgen,
ich habe eine Batchjobschleife. Diese würde ich jetzt gerne in mein Kixscript einbauen. Somit könnte ich mir den Batchjob dann sparen. Hab schon diverse Sachen probiert. Hat mir aber nix gebracht ;-(. Kann mir jemand dabei weiterhelfen?!
Gruß
Dani
ich habe eine Batchjobschleife. Diese würde ich jetzt gerne in mein Kixscript einbauen. Somit könnte ich mir den Batchjob dann sparen. Hab schon diverse Sachen probiert. Hat mir aber nix gebracht ;-(. Kann mir jemand dabei weiterhelfen?!
Gruß
Dani
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 27189
Url: https://administrator.de/contentid/27189
Ausgedruckt am: 25.11.2024 um 10:11 Uhr
5 Kommentare
Neuester Kommentar
Habe dir eben auf einen älteren Thread die Lösung dazu geschrieben.
Hier aber noch mal die angepasste enumdir.kix.
Grüße Kai
; EnumDir.KIX
;
; Enumerates a directory
;
; Note : This code sample is provided for demonstration purposes only.
; Microsoft makes no warranty, either express or implied,
; as to its usability in any given situation.
;
; Copyright (C) 2001 Ruud van Velsen.
; All rights reserved.
;
BREAK ON
IF $Dir = 0
$Dir = "C:"
ENDIF
;
; first enumerate all directories
;
$File = Dir( $Dir + "\*.*" )
WHILE @16034 = 0 AND $File
IF $File <> "." AND
$File <> ".." AND
GetFileAttr( $Dir + "\" + $File ) & 16 ; is it a directory ?
DIM $SaveDir
$Savedir = $Dir
$Dir = $Dir + "\" + $File
CALL EnumDir
$Dir = $SaveDir
ELSE
if $File="Outlook.pst"
? $Dir + "\" + $File
else
endif
ENDIF
IF @16034 = 0
; try for next subkey
$File = Dir("")
ENDIF
LOOP
EXIT 0
Hier aber noch mal die angepasste enumdir.kix.
Grüße Kai
; EnumDir.KIX
;
; Enumerates a directory
;
; Note : This code sample is provided for demonstration purposes only.
; Microsoft makes no warranty, either express or implied,
; as to its usability in any given situation.
;
; Copyright (C) 2001 Ruud van Velsen.
; All rights reserved.
;
BREAK ON
IF $Dir = 0
$Dir = "C:"
ENDIF
;
; first enumerate all directories
;
$File = Dir( $Dir + "\*.*" )
WHILE @16034 = 0 AND $File
IF $File <> "." AND
$File <> ".." AND
GetFileAttr( $Dir + "\" + $File ) & 16 ; is it a directory ?
DIM $SaveDir
$Savedir = $Dir
$Dir = $Dir + "\" + $File
CALL EnumDir
$Dir = $SaveDir
ELSE
if $File="Outlook.pst"
? $Dir + "\" + $File
else
endif
ENDIF
IF @16034 = 0
; try for next subkey
$File = Dir("")
ENDIF
LOOP
EXIT 0