Dim f As String = In.GetData
Dim Dir, FileName As String
If f.StartsWith("file://") Then
FileName = f.Substring("file://".Length)
Dir = ""
Else If f.StartsWith("content://") Then
FileName = f.Substring("content://".Length)
Dir = "ContentDir"
End If
Log(File.ReadString(Dir, FileName))