From 562e317b9cefb5ba1923a357489a2065624ce99b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=E5=85=B3=E5=80=A9=E5=80=A9?= Date: Tue, 27 Sep 2016 12:59:11 +0800 Subject: [PATCH] fix linq --- RQL/StorageTek/API.vb | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/RQL/StorageTek/API.vb b/RQL/StorageTek/API.vb index 458b1a0..74904da 100644 --- a/RQL/StorageTek/API.vb +++ b/RQL/StorageTek/API.vb @@ -66,12 +66,12 @@ Namespace StorageTek End Function Private Function DIRRepository(url As String, type As Type, repo As IRepository, ext As String) As IEnumerable - Dim DIR = FileIO.FileSystem.GetDirectoryInfo(url) - Dim LQuery = (From f As IO.FileInfo - In DIR.EnumerateFiles - Let iExt As String = f.FullName.Split("."c).Last - Where String.Equals(iExt, ext, StringComparison.OrdinalIgnoreCase) - Select repo(f.FullName, type)) + Dim DIR As IO.DirectoryInfo = FileIO.FileSystem.GetDirectoryInfo(url) + Dim LQuery As IEnumerable = From f As IO.FileInfo + In DIR.EnumerateFiles + Let iExt As String = f.FullName.Split("."c).Last + Where String.Equals(iExt, ext, StringComparison.OrdinalIgnoreCase) + Select repo(f.FullName, type) Return LQuery End Function