add a file url test helper

ossutil/Aspera.vb

@@ -1,4 +1,5 @@
-Imports System.Text
+Imports System.Runtime.CompilerServices
+Imports System.Text
 Imports Microsoft.VisualBasic.CommandLine.InteropService
 
 ''' <summary>
@@ -23,6 +24,11 @@ Public Class Aspera : Inherits InteropService
         Call MyBase.New(bin)
     End Sub
 
+    <MethodImpl(MethodImplOptions.AggressiveInlining)>
+    Public Shared Function IsAsperaProtocol(url As String) As Boolean
+        Return InStr(url, "fasp://", CompareMethod.Text) = 1
+    End Function
+
     ''' <summary>
     ''' 单位都是MB
     ''' </summary>