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
Gruß
Dani
Please also mark the comments that contributed to the solution of the article
Content-Key: 27189
Url: https://administrator.de/contentid/27189
Printed on: April 24, 2024 at 20:04 o'clock
5 Comments
Latest comment
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