Buenas ante todo. Amigo necesito saber  si es posible compilara una app compatible con diferentes framework en VB.net

Saludos ante todo. Estoy tratando de crear una app que me sea capas de organizar las extensiones de ficheros que le oriente, hasta el momento e logrado algo que no se si es la mejor manera de hacerlo, ya que soy nuevo en la programación. A continuación les dejo el código para el que le sirva y para si me pudieran ayudar a mejorar su funcionamiento. Gracias...

     

 
Imports System
Imports System.IO
Imports System.Windows
Imports System.Threading.Tasks
Imports System.Reflection
Imports System.Text
Imports System.Security.Cryptography
Imports System.Security.AccessControl
 
 
Public NotInheritable Class Form1 : Inherits Form
 
    Dim linea As String
 
       Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Dim Ruta As String = My.Application.Info.DirectoryPath()
        Dim LetraRuta As String = Mid(Ruta, 1, 3)
        Label1.Text = LetraRuta
 
        'Cargar datos del txt
        Dim lector As New StreamReader(Ruta & "\" & "test.txt")
        ' Leer el contenido mientras no se llegue al final
        While lector.Peek() <> -1
            ' Leer una línea del fichero
            linea = lector.ReadLine()
            ' Si no está vacía, añadirla al control
            ' Si está vacía, continuar el bucle
            If String.IsNullOrEmpty(linea) Then
                Continue While
            End If
           ListBox3.Items.Add(linea)
        End While
        ' Cerrar el fichero
        lector.Close()
 
        Dim allDrives() As DriveInfo = DriveInfo.GetDrives()
        For Each [Drive] In allDrives
            Dim strDrive As String = [Drive].ToString
            If LetraRuta <> strDrive Then 'Comprobamos que las rutas sean diferentes
                Try
                    Dim DriveSubDirectories As String() = Directory.GetDirectories(strDrive)
                    For Each strSubDirectory As String In DriveSubDirectories
                        Dim strFolder As String = strSubDirectory.Remove(0, strSubDirectory.LastIndexOf("\") + 1)
                        ListBox1.Items.Add(strSubDirectory) '<---Carpeta
                        Try
                            Dim strFiles As IEnumerable = Directory.EnumerateFiles(strDrive & strFolder, "*", SearchOption.AllDirectories)
                            Dim NbArchivo As String
                            For Each strFileName In strFiles
                                ListBox2.Items.Add(strFileName) '<--Archivo con ruta completa
 
                                For Each item As Object In ListBox3.Items
                                    'If InStr(strFileName, item) Then
                                    Dim ExArchivo As String
                                    ExArchivo = Path.GetExtension(strFileName)
                                    If ExArchivo = item Then
                                        NbArchivo = Path.GetFileName(strFileName) 'Then
 
                                        Dim RutaDestino As String = Ruta & "\" & "Organizado" & "\" & ExArchivo & "\"
 
                                        ' Crea directorio Raiz
                                        If Not Directory.Exists(Ruta & "\" & "Organizado") Then
                                            Directory.CreateDirectory(Ruta & "\" & "Organizado")
                                            'Le da atributos a la carpeta raiz
                                            Dim folder_info As IO.DirectoryInfo = My.Computer.FileSystem.GetDirectoryInfo(Ruta & "\" & "Organizado")
                                          End If
 
                                        'Crea subdirectorios por extensiones encontradas
                                        If Not Directory.Exists(RutaDestino) Then
                                            Directory.CreateDirectory(RutaDestino)
 
                                            Dim folder_info2 As IO.DirectoryInfo = My.Computer.FileSystem.GetDirectoryInfo(RutaDestino)
 
                                        End If
                                        'File.Copy("K:\55\", True)
                                        File.Copy(strFileName, RutaDestino & NbArchivo, True)
                                    End If
                                Next
                                Me.Text = ListBox2.Items.Count.ToString() & ".Archivos"
                            Next 'strFileName
                        Catch ex As Exception
                            '   MessageBox.Show(ex.Message)
                        End Try 'strFiles
                    Next  'strSubDirectory
 
                Catch ex As Exception
                    ' MessageBox.Show(ex.Message)
                End Try 'Drives
            End If
        Next '[Drive]
        'Bloqueamos la carpera 
        Dim fs As FileSystemSecurity = File.GetAccessControl(Ruta & "\" & "Organizado")
        fs.AddAccessRule(New FileSystemAccessRule(Environment.UserName, FileSystemRights.FullControl, AccessControlType.Deny))
        File.SetAccessControl(Ruta & "\" & "Organizado", CType(fs, FileSecurity))
 
    End Sub
End Class
 
 

Buenos días ante todo, Estoy tratando de realizar un programa que me organiza los ficheros por extensiones, pero quiero que a terminal este me encripte la carpeta con contraseña para que nadie tenga acceso a ella, e buscado por la red pero no logro encontrar nada que me funcione, si alguien tuviese alguna idea para lograrlo y quisiera compartirlo lo agradecería...

Estoy tratando de listar los archivo de las unidades de disco encontradas pero me da error (Acceso denegado). Este es el código que estoy usando.  

For Each vUnidad As String In Directory.GetLogicalDrives()
ListBox1.Items.Add(vUnidad)
Next vUnidad
'Recorrer las unidades detectadas 
Dim Pdisco As String
For i As Integer = 0 To Me.ListBox1.Items.Count - 1
Pdisco = ListBox1.Items(i)
'Obtener los ficheros de las unidades 
filepaths = Directory.GetFiles(Pdisco, "*", SearchOption.AllDirectories)
ListBox2.Items.Add(filepaths)
Next 
 

Buenas ante todo: Como pudiera ejecutar mi aplicación de forma oculta; que no se muestre la form en vb.net 

Buenas ante todo: Tengo un código que me enumera la cantidad de ficheros encontrados en un directorio, la cuestión es que quiero  enumerar estos ficheros por tipo de exenciones para poder generar un informe con esa información y no tengo ni la mas mínima idea de como hacerlo, me pudieran ayudar...

Este es parte del código

 
FolderBrowserDialog1.ShowDialog()
TextBox1.Text = FolderBrowserDialog1.SelectedPath
Dim dirpath As String = FolderBrowserDialog1.SelectedPath
filepaths = Directory.GetFiles(dirpath, "*", SearchOption.AllDirectories)
Me.ListBox1.DataSource = filepaths
Me.Text = ListBox1.Items.Count.ToString() & ".Archivos"
 
 

Buenas y saludos ante todo:  Tengo hecha una aplicación en VB.net   que quisiera detener una vez echada  andar, el problema es que al darle al botón que inicia el procedimiento,  me inhabilita todos los de mas botones y no puedo detenerla ni cerrarla hasta que termina. Me pudieran ayudar...

Alguien me pudiera decir como eliminar lineas repeticiones de un txt, o como pudiera evitar repetir lineas antes de guardarlas.

Disculpen la pregunta el problema es que soy novato en este lenguaje,  estoy tratando de capturar los item de un listbox y pasarlo a una variable pero no lo e logrado, e encontrado algunas cosas en la web pero me dan error.
Esto es algo de lo que e encontrado:

Private Sub Command1_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
MsgBox List1.List(i)
Next i
End Sub
 

Amigos el problema es el siguiente, Tengo este script que cuando lo ejecuto directo me funciona perfecto pero cuando le doy clip derecho ejecutar como administrador me sale un error informándome que no encuentra el fichero....
 

@echo on
set cdr="%~d0%~p0"
echo %cdr%
if exist %cdr%programa.exe START %cdr% programa.exe
exit