[vb.net] isFolder & isFile

Gepostet am: Mar 25, 2011 8:39:2 AM

Oftmals muss man prüfen, ob es sich bei einem bestimmten Pfad um eine Datei oder einen Ordner handelt. Dafür gibt es unzählige Lösungsmöglichkeiten, die mehr oder weniger Zuverlässig sind. Das hängt teilweise mit den Berechtigungen zusammen; manche haben aber auch andere Probleme. Meine aktuelle Lösung (siehe auch):

IsFile

Public Function isFile(ByVal strPfad As String) As Boolean         Dim fI As System.IO.FileInfo         fI = New FileInfo(strPfad)         If Not fI.Extension.Length = 0 Then             isFile = True         Else             isFile = False         End IfEnd Function

IsFolder

Public Function isFolder(ByVal strPfad As String) As Boolean         Dim dI As System.IO.DirectoryInfo         dI = New DirectoryInfo(strPfad)         If Not dI.Extension.Length = 0 Then             isFolder = False         Else             isFolder = True         End IfEnd Function

Sollten diese Funktionen nicht in allen Fällen zuverlässige funktionieren, können Sie mir das gerne mitteilen, ich werde dann nach einer anderen Lösung suchen.