HI
Ich hab nen htmlfilelister gefunden: [ gelöst ] Ordnerdurchsuchung und in HTMLsite alles auflisten
und hab ihn zu einen filelister gemacht: (die eine funktion gelöscht)
;Recursive File Lister
#include <Array.au3>
;Main Programmm anfang
Dim $FolderName = FileSelectFolder ("Wähle den Ordner aus","") ;Sagt welcher Ort zu durchsuchen ist
Dim $FileCount = 0 ;setzt den zähler auf 0
Dim $size = 10
Dim $used = 0
Dim $blocksize = 1
Dim $avArray[$size]
ScanFolder($FolderName) ;startet die durchsuchung des ortes
MsgBox(0,"Fertig","Alles fertig :D") ;Ausgabebox mit Meldung das durchsuchung fertig ist und wieviele dateien/ordner gefunden wurden
;beginn des durchsuchungvorganges
Func ScanFolder($SourceFolder) ;
Local $Search ;initialisiert die variable "Search"
Local $File ;initialisiert die variable "File"
Local $FileAttributes ;initialisiert die variable "FileAttributes"
Local $FullFilePath ;initialisiert die variable "FullFilePath"
;code für array
[/autoit][autoit][/autoit][autoit]If $used = $size Then
$size = $size + $blocksize
ReDim $avArray [$size]
EndIf
$avArray[$used] = $SourceFolder
$used = $used + 1
;code für array
[/autoit][autoit][/autoit][autoit]$Search = FileFindFirstFile($SourceFolder & "\*.*") ; ?
[/autoit][autoit][/autoit][autoit];schleifenbeginn
While 1
If $Search = -1 Then ;
ExitLoop
EndIf
$File = FileFindNextFile($Search)
If @error Then ExitLoop
$FullFilePath = $SourceFolder & "\" & $File
$FileAttributes = FileGetAttrib($FullFilePath)
If StringInStr($FileAttributes,"D") Then
ScanFolder($FullFilePath)
Else
LogFile($FullFilePath)
EndIf
WEnd
;schleifenende
FileClose($Search)
EndFunc
;ende des durchsuchungvorganges
;beginn des vorganges zum schreiben in eine txt datei
Func LogFile($FileName)
FileWriteLine(@ScriptDir & "\FileList.txt",$FileName)
$FileCount += 1
EndFunc
;ende des vorganges zum schreiben in eine txt datei
So jetzt will ich aber das er mir nicht den ganzen pfad angibt, sondern nur ab dem ordner wo man am anfang angibt.
Wie geht das :D?