Hallo Leute,
ich habe eine UDF geschrieben, der die Informationen einer Datei zurückgibt.
Spoiler anzeigen
;=========================================================================================
;
; Funktionsname: _FileGetPfad
; Beschreibung: Gibt den Pfad in der die Datei liegt zurück.
; Syntax: _FileGetPfad($path)
; Wert: Gibt den Pfad zurück
; Autor: Mehmet Tasdelen
;
;=========================================================================================
Func _FileGetPfad($path)
$filegetname = _FileGetName($path)
$filegettyp = _FileGetTyp($path)
$pfadgetlen = StringLen($path)
$filegetlen = StringLen($filegetname & "." & $filegettyp)
$stringgetpfad = StringLeft($path, $pfadgetlen - $filegetlen - 1)
Return $stringgetpfad
EndFunc
;=========================================================================================
;
; Funktionsname: _FileGetName
; Beschreibung: Gibt den Namen der Datei zurück.
; Syntax: _FileGetName($path)
; Wert: Gibt den Dateinamen zurück.
; Autor: Mehmet Tasdelen
;
;=========================================================================================
Func _FileGetName($path)
;Dateiname ermitteln:
;Teilt alle Ebenen bis hin zur Datei, durch das "\" Zeichen.
$stringsplitgetname = StringSplit($path, "\")
;Gibt die Anzahl der Arrays (in diesem fall "Ebenen") zurück, plus 1. Das heißt wenn es 5 Ebenen sind inkl. Datei, dann wird es 6 Ebenen zurück gegeben.
$uboundname = UBound($stringsplitgetname) - 1
;Ermittelt den Dateinamen.
$stringgetname = $stringsplitgetname[$uboundname]
;Damit der Dateiname in diesem Array nicht mit den Dateiformat angezeigt wird, muss diese noch entfernt werden:
;Zeilt der Dateiname durch das "." Zeichen.
$stringsplitname = StringSplit($stringgetname, ".")
;Ermittelt den Dateinamen, ohne den Dateiformat.
$stringname = $stringsplitname[1]
Return $stringname
EndFunc
;=========================================================================================
;
; Funktionsname: _FileGetTyp
; Beschreibung: Gibt das Typ der Datei zurück.
; Syntax: _FileGetTyp($path)
; Wert: Gibt den Dateityp zurück.
; Autor: Mehmet Tasdelen
;
;=========================================================================================
Func _FileGetTyp($path)
;Dateiformat ermitteln:
;Teilt den Namen durch das "." Zeichen.
$stringsplitformat = StringSplit($path, ".")
;Gibt die Anzahl der Arrays an.
$uboundformat = UBound($stringsplitformat) - 1
;Ermittelt das Dateiformat.
$stringformat = $stringsplitformat[$uboundformat]
Return $stringformat
EndFunc
;=========================================================================================
;
; Funktionsname: _FileGetSize
; Beschreibung: Gibt die Größe einer Datei zurück.
; Syntax: _FileGetSize($path [, $sizetype = 1])
; Parameter: 0 = Bytes
; 1 = Kilobytes (KB)
; 2 = Megabytes (MB)
; 3 = Gigabytes (GB)
; Wert: Gibt die Dateigröße zurück.
; Autor: Mehmet Tasdelen
;
;=========================================================================================
Func _FileGetSize($path, $sizetype = 1)
;Dateigröße ermitteln:
If $sizetype = 0 Then
$stringsize = FileGetSize($path) ;Bytes
ElseIf $sizetype = 1 Then
$stringgetsize = FileGetSize($path) / 1024 ;Kilobytes
$stringsize = Round($stringgetsize, 1)
ElseIf $sizetype = 2 Then
$stringgetsize = FileGetSize($path) / 1048576 ;Megabytes
$stringsize = Round($stringgetsize, 2)
ElseIf $sizetype = 3 Then
$stringgetsize = FileGetSize($path) / 1073741824 ;Gigabytes
$stringsize = Round($stringgetsize)
EndIf
Return $stringsize
EndFunc
;=========================================================================================
;
; Funktionsname: _FileGetVersion
; Beschreibung: Gibt die Version einer Datei zurück.
; Syntax: _FileGetVersion($path)
; Wert: Gibt die Dateiversion zurück.
; Autor: Mehmet Tasdelen
;
;=========================================================================================
Func _FileGetVersion($path)
$stringverion = FileGetVersion($path)
Return $stringverion
EndFunc
;=========================================================================================
;
; Funktionsname: _FileGetDate
; Beschreibung: Gibt das Datum einer Datei zurück.
; Syntax: _FileGetDate($path [, $timetype = 0])
; Parameter: 0 = Verändert (Standard)
; 1 = Erstellt
; 2 = Letzter Zugriff
; Wert: Gibt das Dateidatum zurück.
; Autor: Mehmet Tasdelen
;
;=========================================================================================
Func _FileGetDate($path, $timetype = 0)
;Datumsinformationen ermitteln:
If $timetype = 0 Then
$stringgettime = FileGetTime($path, 0)
$stringtime = $stringgettime[2] & "." & $stringgettime[1] & "." & $stringgettime[0]
ElseIf $timetype = 1 Then
$stringgettime = FileGetTime($path, 1)
$stringtime = $stringgettime[2] & "." & $stringgettime[1] & "." & $stringgettime[0]
ElseIf $timetype = 2 Then
$stringgettime = FileGetTime($path, 2)
$stringtime = $stringgettime[2] & "." & $stringgettime[1] & "." & $stringgettime[0]
EndIf
Return $stringtime
EndFunc
