Beiträge von Eistee

Eistee

Ok raupi so gehts vielen dank

kann ich das so auch für die nächsten 20 platten verwenden ? weil so ist es ja nicht definitv oder ?

Eistee

Hallo Leute

Ich hab wohl irgendwo einen Fehler oder einen Denkfehler denn hier gibt es anscheinen immer nen Error doch ich weis nicht weshalb

Spoiler anzeigen

[autoit]

;Von Kenngott Marco (Eistee, AsusExcite)
;E-Mail : [email='marco.kenngott@live.de'][/email]
;
;
;

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <Array.au3>
#include <File.au3>

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Global $dRives

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$dRives = DriveGetDrive("fixed")

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

If $dRives[1] = @error Then ; Wenn error dann $dRive1 = Keine HDD
$dRive1 = ("Keine HDD")
Else
$dRive1 = $dRives[1] ; ansonsten Name der Festplatte jedoch wird immer ausgegeben keine HDD
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$Form1 = GUICreate("Excite HDD-Information", 701, 589, 193, 125)
GUISetBkColor(0xFFFFFF)
$Pic1 = GUICtrlCreatePic("C:\Users\AsusDK\Desktop\ServerClientV1\HDDSpace\0.jpg", 279, 29, 400, 500, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Group1 = GUICtrlCreateGroup("HDD-Information", 264, 8, 425, 537)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label1 = GUICtrlCreateLabel("c by Kenngott Marco (AsusExcite", 528, 560, 161, 17)
$Label2 = GUICtrlCreateLabel("Verwendetes Betriebssystem :", 16, 24, 145, 17)
$Label3 = GUICtrlCreateLabel("Windows 7 Ultimate", 16, 56, 183, 28)
GUICtrlSetFont(-1, 16, 800, 0, "Times New Roman")
GUICtrlSetColor(-1, 0x808080)
$Label4 = GUICtrlCreateLabel("Datenträger :", 16, 120, 66, 17)
$Label5 = GUICtrlCreateLabel($dRives[0], 120, 120, 36, 17)
$Button1 = GUICtrlCreateButton($dRive1, 16, 160, 75, 25, 0)
$Button2 = GUICtrlCreateButton("Button2", 16, 200, 75, 25, 0)
$Button3 = GUICtrlCreateButton("Button3", 16, 240, 75, 25, 0)
$Button4 = GUICtrlCreateButton("Button4", 16, 280, 75, 25, 0)
$Button5 = GUICtrlCreateButton("Button5", 16, 320, 75, 25, 0)
$Button6 = GUICtrlCreateButton("Button6", 16, 360, 75, 25, 0)
$Button7 = GUICtrlCreateButton("Button7", 16, 400, 75, 25, 0)
$Button8 = GUICtrlCreateButton("Button8", 16, 440, 75, 25, 0)
$Button9 = GUICtrlCreateButton("Button9", 16, 480, 75, 25, 0)
$Button10 = GUICtrlCreateButton("Button10", 16, 520, 75, 25, 0)
$Button11 = GUICtrlCreateButton("Button11", 112, 160, 75, 25, 0)
$Button12 = GUICtrlCreateButton("Button12", 112, 200, 75, 25, 0)
$Button13 = GUICtrlCreateButton("Button13", 112, 240, 75, 25, 0)
$Button14 = GUICtrlCreateButton("Button14", 112, 280, 75, 25, 0)
$Button15 = GUICtrlCreateButton("Button15", 112, 320, 75, 25, 0)
$Button16 = GUICtrlCreateButton("Button16", 112, 360, 75, 25, 0)
$Button17 = GUICtrlCreateButton("Button17", 112, 400, 75, 25, 0)
$Button18 = GUICtrlCreateButton("Button18", 112, 440, 75, 25, 0)
$Button19 = GUICtrlCreateButton("Button19", 112, 480, 75, 25, 0)
$Button20 = GUICtrlCreateButton("Button20", 112, 520, 75, 25, 0)
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

[/autoit] [autoit][/autoit] [autoit]

EndSwitch
WEnd

[/autoit]

Er gibt immer nur aus keine HDD jedoch ist C:\ ja definitiv vorhanden sieht jemand den fehler ?

Eistee

hmm.. naja also wie du das Programm steuern kannst wüßte ich jetzt leider nicht aber ob du bereits intenet hast kannste mit dem einfachen befehl

[autoit]

$var = Ping("www.AutoIt.de")
If $var Then
ShellExecute("iexplore.exe")
Else
MsgBox(0, "Status", "Es ist ein Fehler mit der Nummer " & @error & " aufgetreten.")
EndIf

[/autoit]

Eistee

okay ähm danke für den Tipp Matthias jedoch würde ich das gerne in AutoIt lösen Ftp ist eh schon so ne sache ich muss es scheinbar nehmen aber dann auch noch PHP einbauen ist ein wenig overdressed da ich mich damit überhaupt nicht auskenne

Eistee

nein nein eben nicht sein server steht zuhause, aber wir wollen auch von überall anders darauf zugreifen können (also die files downloaden) vorrausgesetzt der client ist auf dem jeweiligen rechner installiert.

Vom Prinzip her so alla Usenet, ein Server und mehrere Accounts die halt per Client darauf zugreifen. Alle Files auflisten an den client senden der zeigt se an und man wählt dann halt eine Datei und klickt auf Download somit werden sie Geladen.

Eistee

das wäre echt cool vielen dank !!!

Eistee

ok ne also lokal sollte da nichts laufen ähm... active directory sagt mir gar nix und ihm auch nicht.
Wie sollte man das denn mit ftp lösen ? mir würde da kein weg einfallen.

Eistee

Naja der server hatt :

2 x Dualcore xeon
16 Gb Ram
12 x 2 Tb Platten
und irgendson sau teures Asus board

naja ähm... eigentlich wär mir jede methode recht bei der ich einen eigenen clienten benutzen könnte

und @kev84 : nein es soll ja nicht nur lokal betrieben werden sondern fü ( ich denke 5) leute per client zugriff bieten

Eistee

naja Matthias geht da schon in die richtige richtung jedoch sind es im Moment so knappe 8 TB und es sollen bis zu 24 TB werden und er will halt vor allem seinen eigenen Clienten

Ich habe bereits bis jetzt (für des serverScript) die Möglichkeit mir auf dem server alle Verzeichnise,Rar files, Musikfiles und Bildfiles auflisten und in eine datei schreiben zu lassen, denn ich gehe davon aus das ich ja um die dateien dann per client downloaden zu können die exakten verzeichnisse davon brauche oder irre ich mich da ?

Eistee

Hallo Leute

Ich wollte euch mal etwas fragen über das ich schon sehr lange nachdenke und zwar :

Ein kumpel von mir baut sich gerade einen server, er hatt auch schon einen Serverschrank , USV, Rack usw.

Er wollte jetzt das ich ein Script schreibe also quasi einen serverscript und nen client script und das man nur was von dem server downloaden kann wenn der server script läuft und man sich per Pw und client eingeloggt hatt.

Meine derzeitige theorie wäre das ganze per TCP zu machen jedoch wollte ich eure meinungen und Ideen hören wie man das evtl. besser lösen kann / könnte.

Das OS des Servers wäre entweder Win7 oder WinServer2008, ich hoffe was ich zu erklären versucht habe war weitestgehend verständlich

Danke schon mal, euer Eistee

Eistee

Auch von mir alles gute zum Geburtstag und das du uns ja Gesund bleibst

Eistee

ahhh ok vielen dank darauf hätt ich selber kommen können.. danke dir

Eistee

also mir fällt eines auf kann auch sein das ich irre aber

Komplett Code -> enthält keine pfadangabe

Spoiler anzeigen

[autoit]

;LoL Swapper
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

Global $path = '' ;kein direkter pfad

[/autoit] [autoit][/autoit] [autoit]

#Region ### START Koda GUI section ### Form=
$frm_Main = GUICreate("LoL Swapper", 194, 66, 774, 500)
$Group_Control = GUICtrlCreateGroup("Control Panel", 0, 0, 193, 65)
$Radio_EU = GUICtrlCreateRadio("EU", 8, 16, 41, 17)
$Radio_NA = GUICtrlCreateRadio("NA", 8, 40, 33, 17)
$Button_Apply = GUICtrlCreateButton("Apply", 48, 16, 57, 41, $WS_GROUP)
$Label_Headlineclient = GUICtrlCreateLabel("Current client", 112, 16, 66, 17)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
$Label_CurrentClient = GUICtrlCreateLabel("default", 136, 37, 21, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

#Region ### START UDF ###
Func GetCurrentClient()
$fp = FileOpen($path&'\RADS\projects\lol_air_client_config_eu\releases\0.0.0.1\deploy\lol.properties')
$fr = FileReadLine($fp,2)
If (StringRight($fr,20) == 'eu.lol.riotgames.com') Then
Return 'EU'
ElseIf (StringRight($fr,22) == 'beta.lol.riotgames.com') Then
Return 'NA'
Else
Return False
EndIf
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func PostCurrentClient($client)
Switch $client
Case 'EU'
GUICtrlSetState($Radio_EU,$GUI_CHECKED)
GUICtrlSetData($Label_CurrentClient,'EU')
Case 'NA'
GUICtrlSetState($Radio_EU,$GUI_CHECKED)
GUICtrlSetData($Label_CurrentClient,'NA')
Case False
GUICtrlSetData($Label_CurrentClient,'ERROR')
EndSwitch
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func SwapCurrentClient($swapto)
If $swapto == GetCurrentClient() Then
Return True
Else
DirMove($path&'\RADS\projects\lol_air_client_config_eu',$path&'\RADS\projects\lol_air_client_config_eu1')
DirMove($path&'\RADS\projects\lol_air_client_config_na',$path&'\RADS\projects\lol_air_client_config_eu')
DirMove($path&'\RADS\projects\lol_air_client_config_eu1',$path&'\RADS\projects\lol_air_client_config_na')
PostCurrentClient(GetCurrentClient())
Return True
EndIf
EndFunc
#EndRegion ### END UDF ###

[/autoit] [autoit][/autoit] [autoit]

#Region ### START Program initialization ###
If FileExists("LoL Swapper.ini") Then
$path = IniRead("LoL Swapper.ini", "General", "Path", "...")
Else
Do
$path = FileSelectFolder("Select League of Legends folder","",4,'C:\Spiele\League of Legends')
If FileExists($path&'\lol.launcher.exe') Then
$loop = False
Else
MsgBox(48,'Error!','Could not find lol.launcher.exe in selected folder')
$loop = True
EndIf
Until $loop == False
IniWrite("LoL Swapper.ini", "General", "Path",$path)
EndIf

[/autoit] [autoit][/autoit] [autoit]

PostCurrentClient(GetCurrentClient())
#EndRegion ### END Program initialization ###

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button_Apply
If GUICtrlRead($Radio_EU) == $GUI_CHECKED Then
MsgBox(0,'','Send EU')
SwapCurrentClient('EU')
ElseIf GUICtrlRead($Radio_NA) == $GUI_CHECKED Then
MsgBox(0,'','Send EU')
SwapCurrentClient('NA')
EndIf
EndSwitch
WEnd

[/autoit]

kurzcode : -> hatt direkten Pfad

Spoiler anzeigen

[autoit]

$path = 'C:\Spiele\League of Legends' ; Direkter Pfad
DirMove($path&'\RADS\projects\lol_air_client_config_eu',$path&'\RADS\projects\lol_air_client_config_eu1')
DirMove($path&'\RADS\projects\lol_air_client_config_na',$path&'\RADS\projects\lol_air_client_config_eu')
DirMove($path&'\RADS\projects\lol_air_client_config_eu1',$path&'\RADS\projects\lol_air_client_config_na')
Exit

[/autoit]

mfg Eistee

Eistee

hmmm.. danke dir für die hilfe jedoch findet er irgendwie nichts keine rar, keine jpg und auch keine mp3 habe ich es falsch verbaut ?

Spoiler anzeigen

[autoit]

;Von Kenngott Marco (Eistee, AsusExcite)
;E-Mail : [email='marco.kenngott@live.de'][/email]
;
;
#include <Array.au3>
#include <File.au3>

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Global $dRives
Global $dRives2
Global $dRivespace
Global $dRivespace2
Global $dRivespaceB
Global $dRivespace2B
Global $dRivespaceC
Global $dRivespace2C
Global $dRivespaceD
Global $dRivespace2D
Global $iA

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$dRives = DriveGetDrive("fixed")

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

If Not @error Then
For $iA = 1 To $dRives[0]
Next
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

For $iA = 1 To $dRives[0]
_FileListCreate()
_FileSpaceData()
;MsgBox(1,"Laufwerke ausser C:\ Nr." & $iA, $dRives[$iA])
Next

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _FileSpaceData()
$dRivespace = DriveSpaceFree($dRives[$iA] & "\")
$dRivespace2 = DriveSpaceTotal($dRives[$iA] & "\")
$dRivespaceB = StringSplit($dRivespace, ".")
$dRivespace2B = StringSplit($dRivespace2, ".")
$dRivespaceC = $dRivespaceB[1] / 1000
$dRivespace2C = $dRivespace2B[1] / 1000
$dRivespaceD = StringSplit($dRivespaceC, ".")
$dRivespace2D = StringSplit($dRivespace2C, ".")
FileDelete($dRives[$iA] & "\DriveSpace.txt")
FileDelete($dRives[$iA] & "\DriveSpace.txt")
FileWriteLine($dRives[$iA] & "\DriveSpace.txt", $dRivespace2D[1] & " Gb" & @CRLF)
FileWriteLine($dRives[$iA] & "\DriveSpace.txt", $dRivespaceD[1] & " Gb" & @CRLF)
EndFunc ;==>_FileSpaceData

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _FileListCreate()
$dRives2 = _RecursiveFileListToArray($dRives[$iA] & "\")
_ArraySort($dRives2)
FileDelete($dRives[$iA] & "\filelist.txt")
_FileWriteFromArray($dRives[$iA] & "\filelist.txt", $dRives2)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Local $mp3Array [500000]
Local $mp3cnt = 0
Local $rarArray [500000]
Local $rarcnt = 0
Local $jpgArray [500000]
Local $jpgcnt = 0

[/autoit] [autoit][/autoit] [autoit]

For $i = 0 To UBound($dRives2) - 1
If StringInStr($dRives2[$i], ".jpg") Then
$jpgArray[$jpgcnt] = $dRives2[$i]
$jpgcnt += 1
Elseif StringInStr($dRives2[$i], ".mp3") Then
$mp3Array[$mp3cnt] = $dRives2[$i]
$mp3cnt += 1
Elseif StringInStr($dRives2[$i], ".rar") Then
$rarArray[$rarcnt] = $dRives2[$i]
$rarcnt += 1
EndIf
Next
ReDim $jpgArray[$jpgcnt + 1]
ReDim $rarArray[$rarcnt + 1]
ReDim $mp3Array[$mp3cnt + 1]
_FileWriteFromArray("C:\testfilejpg.txt", $jpgArray)
_FileWriteFromArray("C:\testfilerar.txt", $rarArray)
_FileWriteFromArray("C:\testfilemp3.txt", $mp3Array)

[/autoit] [autoit][/autoit] [autoit]

EndFunc ;==>_FileListCreate

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

; Author(s): Oscar (http://www.autoit.de)
; Anregungen von: bernd670 (http://www.autoit.de)
; und: AspirinJunkie (http://www.autoit.de)
;===============================================================================
Func _RecursiveFileListToArray($sPath, $sPattern = '', $iFlag = 0, $iFormat = 1, $fRecursion = True, $sDelim = @CRLF, $fOpenDLL = True)
Local $hSearch, $sFile, $sReturn = '', $aD
Local Static $hDll
If StringRight($sPath, 1) <> '\' Then $sPath &= '\'
$hSearch = FileFindFirstFile($sPath & '*')
If @error Or $hSearch = -1 Then Return SetError(1, 0, $sReturn)
If $fOpenDLL Then $hDll = DllOpen('kernel32.dll')
While True
$sFile = FileFindNextFile($hSearch)
If @error Then ExitLoop
If @extended Then
$aD = DllCall($hDll, 'dword', 'GetFileAttributesW', 'wstr', $sPath & $sFile)
If @error Or BitAND($aD[0], 0x400) Then ContinueLoop
If StringRegExp($sPath & $sFile, $sPattern) And ($iFlag = 0 Or $iFlag = 2) Then $sReturn &= $sPath & $sFile & '\' & $sDelim
If $fRecursion Then $sReturn &= _RecursiveFileListToArray($sPath & $sFile & '\', $sPattern, $iFlag, 0, True, $sDelim, False)
ContinueLoop
EndIf
If StringRegExp($sFile, $sPattern) And ($iFlag = 0 Or $iFlag = 1) Then $sReturn &= $sPath & $sFile & $sDelim
WEnd
FileClose($hSearch)
If $fOpenDLL Then DllClose($hDll)
If $iFormat And $sReturn = '' Then Return StringSplit($sReturn, '', $iFormat)
If $iFormat Then Return StringSplit(StringTrimRight($sReturn, StringLen($sDelim)), $sDelim, $iFormat)
Return $sReturn
EndFunc ;==>_RecursiveFileListToArray

[/autoit]

Eistee

hmm.. tut mir leid da muss dir evtl. wer anders helfen ich wüsste jetzt nähmlich leider nicht wie sry

Mfg Eistee

Eistee

Wie schon gesagt statt dem Peter jpg entweder eine transparente gif oder png file verwenden habs dir mal von der theorie erstellt

[autoit]

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <WINAPI.au3>
#include <StaticConstants.au3>

[/autoit][autoit][/autoit][autoit]

$Form1 = GUICreate("Form1", 501, 159, 192, 124)
$Pic1 = GUICtrlCreatePic("Signatur Beispiel 2.jpg", 0, 8, 500, 150, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
GUICtrlSetBkColor(-1, -2)
$pic = GUICreate("", 100, 45, 140, 20, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_MDICHILD), $Form1)
GUICtrlCreatePic("Peter.gif", 0, 0, 0, 0, $WS_EX_LAYERED, BitOR($SS_NOTIFY, $WS_GROUP))
GUISetState(@SW_SHOW, $pic)
GUISetState(@SW_SHOW, $Form1)

[/autoit][autoit][/autoit][autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd

[/autoit]

Eistee

Hallo Gemeinde

Ich habe in den letzten tagen dank der tollen Hilfe dieses Forums einen script erstellt der mir alles Platten durchsucht, mir die gesamten Verzeichnise in einer Textdatei auf der jeweiligen Platte ausgibt und eine weitere Textdatei erstellt iin der er mir die Space daten ausgibt.

ich möchte allerdings erreichen das das Script nur .rar files, .mp3 files, .jpg files in jeweils einer Textdatei ausgibt, aber wüsste jetzt nicht wie ich das entstandene Array diesen Parametern entsprechend durchsuchen / manipulieren könnte.

villeicht könnt ihr mir helfen Danke

Script :

Spoiler anzeigen

[autoit]

;Von Kenngott Marco (Eistee, AsusExcite)
;E-Mail : [email='marco.kenngott@live.de'][/email]
;
;
#include <Array.au3>
#include <File.au3>

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Global $dRives
Global $dRives2
Global $dRivespace
Global $dRivespace2
Global $dRivespaceB
Global $dRivespace2B
Global $dRivespaceC
Global $dRivespace2C
Global $dRivespaceD
Global $dRivespace2D
Global $iA

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$dRives = DriveGetDrive("fixed")

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

If Not @error Then
For $iA = 1 To $dRives[0]
Next
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

For $iA = 1 To $dRives[0]
_FileListCreate()
_FileSpaceData()
;MsgBox(1,"Laufwerke ausser C:\ Nr." & $iA, $dRives[$iA])
Next

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _FileSpaceData()
$dRivespace = DriveSpaceFree($dRives[$iA] & "\")
$dRivespace2 = DriveSpaceTotal($dRives[$iA] & "\")
$dRivespaceB = StringSplit($dRivespace, ".")
$dRivespace2B = StringSplit($dRivespace2, ".")
$dRivespaceC = $dRivespaceB[1] / 1000
$dRivespace2C = $dRivespace2B[1] / 1000
$dRivespaceD = StringSplit($dRivespaceC, ".")
$dRivespace2D = StringSplit($dRivespace2C, ".")
FileDelete($dRives[$iA] & "\DriveSpace.txt")
FileDelete($dRives[$iA] & "\DriveSpace.txt")
FileWriteLine($dRives[$iA] & "\DriveSpace.txt", $dRivespace2D[1] & " Gb" & @CRLF)
FileWriteLine($dRives[$iA] & "\DriveSpace.txt", $dRivespaceD[1] & " Gb" & @CRLF)
EndFunc ;==>_FileSpaceData

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _FileListCreate()
$dRives2 = _RecursiveFileListToArray($dRives[$iA] & "\")
_ArraySort($dRives2)
FileDelete($dRives[$iA] & "\filelist.txt")
_FileWriteFromArray($dRives[$iA] & "\filelist.txt", $dRives2)
EndFunc ;==>_FileListCreate

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

; Author(s): Oscar (http://www.autoit.de)
; Anregungen von: bernd670 (http://www.autoit.de)
; und: AspirinJunkie (http://www.autoit.de)
;===============================================================================
Func _RecursiveFileListToArray($sPath, $sPattern = '', $iFlag = 0, $iFormat = 1, $fRecursion = True, $sDelim = @CRLF, $fOpenDLL = True)
Local $hSearch, $sFile, $sReturn = '', $aD
Local Static $hDll
If StringRight($sPath, 1) <> '\' Then $sPath &= '\'
$hSearch = FileFindFirstFile($sPath & '*')
If @error Or $hSearch = -1 Then Return SetError(1, 0, $sReturn)
If $fOpenDLL Then $hDll = DllOpen('kernel32.dll')
While True
$sFile = FileFindNextFile($hSearch)
If @error Then ExitLoop
If @extended Then
$aD = DllCall($hDll, 'dword', 'GetFileAttributesW', 'wstr', $sPath & $sFile)
If @error Or BitAND($aD[0], 0x400) Then ContinueLoop
If StringRegExp($sPath & $sFile, $sPattern) And ($iFlag = 0 Or $iFlag = 2) Then $sReturn &= $sPath & $sFile & '\' & $sDelim
If $fRecursion Then $sReturn &= _RecursiveFileListToArray($sPath & $sFile & '\', $sPattern, $iFlag, 0, True, $sDelim, False)
ContinueLoop
EndIf
If StringRegExp($sFile, $sPattern) And ($iFlag = 0 Or $iFlag = 1) Then $sReturn &= $sPath & $sFile & $sDelim
WEnd
FileClose($hSearch)
If $fOpenDLL Then DllClose($hDll)
If $iFormat And $sReturn = '' Then Return StringSplit($sReturn, '', $iFormat)
If $iFormat Then Return StringSplit(StringTrimRight($sReturn, StringLen($sDelim)), $sDelim, $iFormat)
Return $sReturn
EndFunc ;==>_RecursiveFileListToArray

[/autoit]

Eistee

kannst du evtl. auch die bilder hochladen ?

Mfg Eistee

Eistee

ok dann weiß ich es jetzt besser danke dir hehe

Eistee

Ich würde dir erstmal empfehlen, deinen bisherigen Script zu posten. (Das solltest du eigentlich immer machen.) Damit kann dir wesentlich schneller und effektiver geholfen werden !

Beiträge von Eistee

Irgendwo ein Fehler doch wo ?

Irgendwo ein Fehler doch wo ?

2 Programme verzögert starten + verbinden-Taste

Bester Weg bei servern ?

Bester Weg bei servern ?

Bester Weg bei servern ?

Bester Weg bei servern ?

Bester Weg bei servern ?

Bester Weg bei servern ?

Bester Weg bei servern ?

Herzlichen Glückwunsch Schnuffel

Eingelesenes Array nach files durchsuchen ?

Gibts nicht geht nicht

Eingelesenes Array nach files durchsuchen ?

Hintergrund eines Bild transparent machen?

Hintergrund eines Bild transparent machen?

Eingelesenes Array nach files durchsuchen ?

Hintergrund eines Bild transparent machen?

Gibts nicht geht nicht

Suche in Baumstruktur