2 svar · 220 visningar · startad av Travoni
Namnet = file.Name, o.s.v. men är det någon som vet hur man får reda på filens typ?
Dim currentDirectory As IO.DirectoryInfo = New IO.DirectoryInfo(mBasePath)
For Each file In currentDirectory.GetFiles()
strFile = file.Name
'... Annat
Next
Med gamla FSO så kunde man få ut filtypen så att ex. pdf blev "Portable document file" o.s.v.
Extension finns som property i FileInfo, men det ger ju dig bara 'pdf' ifallet då det är en pdf-fil antar jag.
Sökte lite och hittade denna funktion.
Import microsoft.win32
Private Function GetFileTypeFromRegistry(ByVal sFileExtension As String) As String
Dim myRegClsRoot As RegistryKey = Registry.ClassesRoot
Dim myRegKeyExt As RegistryKey
Dim myRegKeyFileType As RegistryKey
Dim sFileType As String
If Not sFileExtension.StartsWith(".") Then
sFileExtension = "." + sFileExtension
End If
myRegKeyExt = myRegClsRoot.OpenSubKey(sFileExtension, False)
If myRegKeyExt Is Nothing Then
Return "Unkown Extension"
End If
If myRegKeyExt.GetValue("") = "" Then
myRegKeyFileType.Close()
Return "Unknown Extension"
End If
myRegKeyFileType = myRegClsRoot.OpenSubKey(myRegKeyExt.GetValue(""), False)
sFileType = myRegKeyFileType.GetValue("")
myRegKeyFileType.Close()
myRegKeyExt.Close()
Return sFileType
End Function