Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Func _ShowSubFolders($Folder, $Ext='*', $Dir=-1, $Delim=@CRLF)
- If Not IsDeclared("strFiles") Then Global $strFiles = ''
- If ($Dir = -1) Or ($Dir = 0) Then
- For $file In $Folder.Files
- If $Ext <> '*' Then
- ; == nur $Ext
- ;~ If StringRight($file.Name, StringLen($Ext)) = $Ext Then _
- ;~ $strFiles &= $file.Path & $Delim
- ; == alles ausser $Ext
- If StringRight($file.Name, StringLen($Ext)) <> $Ext Then _
- $strFiles &= $file.Path & $Delim
- Else
- $strFiles &= $file.Path & $Delim
- EndIf
- Next
- EndIf
- For $Subfolder In $Folder.SubFolders
- If ($Dir = -1) Or ($Dir = 1) Then $strFiles &= $Subfolder.Path & '\' & $Delim
- _ShowSubFolders($Subfolder, $Ext, $Dir, $Delim)
- Next
- EndFunc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement