Torna al Thread

Private Sub fmIngresso_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim PercorsoDiPArtenza As String = Application.StartupPath.Replace("bin\x86\Debug", "risorse\Basedeidati").Replace("bin\Release", "risorse\Basedeidati") For Each file As String In IO.Directory.GetFiles(PercorsoDiPArtenza) Me.CheckedListBox1.Items.Add(IO.Path.GetFileName(file)) Next End Sub
Copyright © dotNetHell.it 2002-2017
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5