''' <summary>
    ''' Stellt fest, ob in den Systemverzeichnissen eine Datei vorhanden ist
    ''' und WO sie vorhanden ist.
    ''' Aufruf Beispiel:
    ''' txtPDFTKPath.Text = alg.GetSystemFile("pdftk")
    ''' </summary>
    ''' <param name="FileName">
    ''' Dateiname mit oder ohne Erweiterung "pdftk" ODER "pdftk.exe"
    ''' </param>
    ''' <param name="extension">
    ''' Die Dateiendung z.B.: .exe ODER exe ("." wird automatisch hinzugefügt)
    ''' </param>
    ''' <param name="DefaultFullPath">
    ''' Der Standardwert der zurückgegeben wird, falls NICHTS gefunden wurde.
    ''' </param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function GetSystemFile(ByVal FileName As String, Optional ByVal _
      extension As String = ".exe", Optional ByVal DefaultFullPath As String = _
      "") As String
        Dim ext As String = extension
        If ext <> "" AndAlso Not ext.StartsWith(".") Then ext = "." & ext
        If FileName.EndsWith(ext) Then ext = ""
 
        Dim environmentVariables As IDictionary = _
          Environment.GetEnvironmentVariables()
        Dim de As DictionaryEntry
 
        For Each de In environmentVariables
            If de.Key = "Path" Then
                Dim splt() As String
                splt = de.Value.ToString.Split(";")
                For i As Integer = 0 To splt.Length - 1
                    Dim combined As String = splt(i)
                    If combined <> "" AndAlso Not combined.EndsWith("\") _
                      Then combined = combined & "\"
                    combined = combined & FileName & ext
                    Try
                        If IO.File.Exists(combined) Then
                            Return combined
                        End If
                    Catch ex As Exception
                        MessageBox.Show("Fehler beim auslesen des" & _
                          "Verzeichnisses." & vbCrLf & vbCrLf & "Meldung: " & _
                          vbCrLf & ex.Message, "Fehler...!", _
                          MessageBoxButtons.OK, MessageBoxIcon.Warning)
                    End Try
                Next
            End If
        Next de
 
        Return DefaultFullPath
    End Function

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
MFG: BiSoN

Es gibt nur zwei unverr?ckbare Weisheiten:
1. Der Computer n?tzt dem Menschen
2. Die Erde ist eine Scheibe

http://t00ltime.kilu.de/

Beitrag wurde zuletzt am 16.03.09 um 11:40:54 editiert.