Как будет выглядеть код на VB

[dennis_w]

Добрый День

Подскажите пожалуйста как будет выглядеть код написанный на С# в VB. Net

В частности интересует эта часть кода :

return (from f in files
select new StorageFileInfo()
{
Size = f.Length,
VirtualPath = f.FullName.Substring(f.FullName.IndexOf(RepositoryDirectory) + RepositoryDirectory.Length + 1)
}).ToArray();

Код: Выделить всё

      public StorageFileInfo[] List(string virtualPath)
      {
         string basePath = RepositoryDirectory;

         if (!string.IsNullOrEmpty(virtualPath))
            basePath = Path.Combine(RepositoryDirectory, virtualPath);

         DirectoryInfo dirInfo = new DirectoryInfo(basePath);
         FileInfo[] files = dirInfo.GetFiles("*.*", SearchOption.AllDirectories);

         return (from f in files
               select new StorageFileInfo()
               {
                  Size = f.Length,
                  VirtualPath = f.FullName.Substring(f.FullName.IndexOf(RepositoryDirectory) + RepositoryDirectory.Length + 1)
               }).ToArray();
      }

Код: Выделить всё

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;

namespace FileServer.Services
{
   [Serializable]
   public class StorageFileInfo
   {
      /// <summary>
      /// Gets or sets the virtual path to the file
      /// </summary>
      public string VirtualPath { get; set; }

      /// <summary>
      /// Gets or sets the size of the file (in bytes)
      /// </summary>
      public long Size { get; set; }

   }
}

[Williams]

А что там подсказывать-то? Конвертер в руки и вперед.

http://www.developerfusion.com/tools/co ... arp-to-vb/

[dennis_w]

За ссылочку спасибо SharpDevelop имеется.

Выводит он вот такой код:
Return (From f In files _
Select New StorageFileInfo()).ToArray()

Тем самым опуская значения которые передаются в С#:
{Size = f.Length,
VirtualPath = f.FullName.Substring(f.FullName.IndexOf(RepositoryDirectory) + RepositoryDirectory.Length + 1)
}

Код: Выделить всё

return (from f in files
               select new StorageFileInfo()
               {
                  Size = f.Length,
                  VirtualPath = f.FullName.Substring(f.FullName.IndexOf(RepositoryDirectory) + RepositoryDirectory.Length + 1)
               }).ToArray();

Вопрос в том - как можно использовать подобную структуру в VB (если это действительно возможно).
Если возможно покажите примерчик небольшой.
Зарание Благодарен.

[Nord777]

Вроде этого:

Код: Выделить всё

  Return (From f In files Select New StorageFileInfo With {.Size = f.Length, .VirtualPath = "kjkjk"}).ToArray

А вообще ключевое слово LINQ

[dennis_w]

Спасибо за примерчик - все получилось