Guten Tag oder Abend je nach dem wann ihr reinschaut
Also wie ihr an dem Script-ausschnitt sehen werdet geht es darum das ich eine Datenbank für videos machen möchte.
Das Problem ist der Abschnitt in dem die Liste erstellt wird
_RunDos ('cmd.exe /u /c dir "' & $Path & '" /a-d /s /b * >"' & $Liste & '"')
denn der Txt der ausgegeben wird lässt sich nicht benutzen
jetzt werden vielleicht einige fragen warum mit _runDos
testet es mal es ist im verhältnis zum recusiven durchsuche der festplatte deutlich schneller daher möchte ich es gerne auf diesen Weg versuchen.
ich glaube das es vielleicht mit der Kodierung der Txt zu tun hat denn ich habe sie mal geöffnet und dann unter Speichern unter mit Datentyp: alle Dateien gespeichert und
so hat es funktioninert nun möchte ich aber ganz gerne es so laufen lassen ohne die txt jedesmal von Hand umzuspeichern
ich bedanke mich schon mal für das Interese und bin für jeden Ratschlag Dankbar der mich weiterbringt.
Func _DB_ReFreash ()
Local $Path = FileSelectFolder ("","") FileDelete ($Liste) _RunDos ('cmd.exe /u /c dir "' & $Path & '" /a-d /s /b * >"' & $Liste & '"')EndFunc
Func _DB_CHK () If Not FileExists ($Liste) Then _DB_ReFreash ()Local $sDrive, $sDir, $sFilename, $sExtensionLocal $C = _FileCountLines ($Liste)Local $STRG_Video_Format = "mp4;avi;Mpeg;flv;mv4;divx;xivd;wmv;mov;qt;m2ts;mts;vob;evo;webm;mkv;mka;asf;mpg;ps;rm;rmvb;dv;3gp"Local $AR_Video_Format = StringSplit ($STRG_Video_Format, ";")Local $AR_Video[1], $AR_DIR[1]Local $AR_List = FileReadToArray ($Liste)Local $AR_List_Out[UBound ($AR_List)][3];~ _ArrayDisplay ($AR_List)Local $Var = 0For $1 = 0 to UBound ($AR_List)-1 For $2 = 1 To $AR_Video_Format[0] $PS = _PathSplit ($AR_List[$1], $sDrive, $sDir, $sFilename, $sExtension);~ _ArrayDisplay ($PS, "PS") If $PS[4] = "." & $AR_Video_Format[$2] Then $Var = $Var + 1 $AR_List_Out[$Var][0] = $AR_List[$1] $AR_List_Out[$Var][1] = $PS[1] & $PS[2] $AR_List_Out[$Var][2] = $PS[3] EndIf Next
Next _Array_Look ($AR_List_Out, "Video", "FullPath|Dir|Name") ;_Func.au3EndFunc