FileType for long path names

BlitzMax Forums/BlitzMax Programming/FileType for long path names

TaskMaster

(Posted 2013) [#1]

The FileType command is limited to pathnames less than 256 characters in length. This bit of code will use the windows API to get the filetype no matter the length of the pathname. It works with drive letters or UNC names.

It returns 0 for doesn't exist, 1 for file and 2 for folder, just like the normal FileType command.

The debug line at the bottom was just for my testing purposes. Youwill want a pathname that is valid on your computer, or you will get a 0 back. :)

Extern "win32"
	Function GetFileAttributesW:Int(lpFileName$W)
End Extern

Function apiFileType:Long(File:String)
	If Left(File, 2) = "\\"
		file = "\\?\UNC\" + file[2..]
	Else
		file = "\\?\" + file
	End If
	Local Handle:Int = GetFileAttributesW(File)
	If Handle = -1
		Return 0
	Else
		If Handle & 16
			Return 2
		Else
			Return 1
		End If
	End If
End Function

DebugLog apiFileType("c:\zdir\longdirnametotest\I-31 Oct 2013 10-26-55\RegressionTests\Comparisons\_Old\OptBatches.LTIIP11.2012-05-21T0929.5523.Rpl100.5524.Rpl100.5525.Rpl100\5523._RT.Shop.Radiata.5QxNarrow.100ct.2011-05-12.Rpl100.Ug2521.Sn1964_2012.05.21_13.55.49_ReoptimizationLog.txt")