daily pastebin goal
38%
SHARE
TWEET

Untitled

a guest Feb 22nd, 2019 63 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Dim dt As New DataTable("ModuleTableVariable")
  2. dt.Columns.Add("ModuleName")
  3. dt.Columns.Add("ModuleVersion")
  4. Dim rows As List(Of DataRow) = fileList.Select(Function(x)
  5.                                                  Dim row = dt.NewRow()
  6.                                                  row("ModuleName") = x.Name
  7.                                                  If x.Extension = ".dll" Or x.Extension = ".exe" Then
  8.                                                    row("ModuleVersion") = Assembly.LoadFile(x.FullName).GetName().Version
  9.                                                  Else
  10.                                                    row("ModuleVersion") = x.CreationTime
  11.                                                  End If
  12.                                                  Return row
  13.                                                End Function).ToList()
  14.    
  15. AssemblyName.GetAssemblyName("filename.exe").Version
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top