blumi Posted November 28, 2012 Share Posted November 28, 2012 I found here the following code. In the array are listed all folders and files. How to modify the code that the names of the subfolders are not listed. The path of the file is fine, there the subfolder can be displayed. expandcollapse popup#include #Include Local $aRetArray Local $path = "D:\tmp" Local $sFindFile = "*" Local $sRet ;$aRetArray = _FindPathName($path, $sFindFile) ;_ArrayDisplay($aRetArray) $sRet = "" $aRetArray = _FindPathName($path, $sFindFile) _ArrayDisplay($aRetArray) ; Funktion Func _FindPathName($sPath, $sFindFile) Local $sSubFolderPath, $iIndex, $aFolders, $search,$aFoldersSubs $search = FileFindFirstFile($sPath & "\" & $sFindFile) $aFolders = _FileListToArray($sPath, "*", 2) While 1 $file = FileFindNextFile($search) If @error Then ExitLoop Else $sRet &= $sPath & "\" & $file & "|" EndIf WEnd FileClose($search) For $iIndex = 1 To $aFolders[0] $sSubFolderPath = $sPath & "\" & $aFolders[$iIndex] $aFoldersSubs = _FileListToArray($sSubFolderPath, "*", 2) If IsArray($aFoldersSubs) Then _FindPathName($sSubFolderPath, $sFindFile) Next Return StringSplit(StringTrimRight($sRet,1), "|") EndFunc Link to comment Share on other sites More sharing options...
johnmcloud Posted November 28, 2012 Share Posted November 28, 2012 Try to use by Melba Link to comment Share on other sites More sharing options...
blumi Posted November 28, 2012 Author Share Posted November 28, 2012 The UDF ist perfect, thanks for letting me know. Link to comment Share on other sites More sharing options...
Exit Posted November 28, 2012 Share Posted November 28, 2012 Here an alternate solution. #include <file.au3> #include <array.au3> Func __FileListToArray($path) Local $array[1]=[0], $tempfile = _TempFile() RunWait(@ComSpec & " /c dir /S /B /A-D /ON " & $path & " > " & $tempfile, "", @SW_HIDE) _FileReadToArray($tempfile, $array) FileDelete($tempfile) Return $array EndFunc ;==>__FileListToArray $myArray = __FileListToArray(@ScriptDir & "\*.exe " & @ScriptDir & "\*.au3 ") _ArrayDisplay($myArray) App: Au3toCmd UDF: _SingleScript() Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now