Mensajes

Discúlpeme, pero la cuestión no es discernir en que si esta bien o no, la cuestión es  tratar de buscar la solución mas apropiada y que les sirva a todos los interesados del foro. Realmente cundo les hice la pegunta pensé en la herramienta Hide folder que protege las carpetas sin ocupar tiempo. Que si ya esta hecho, de alguna manera se pudiera implementar en VB.net. En cuanto a la opción que proponen comprimiendo lo probare para ver si me resulta, la cuestión es que trabajo hasta con PC pentium 4 las que ya son un poco obsoletas. Saludos a ambos.  

Mi hermano muy bueno el comentario pero ya lo había probado  y no me resulto, y la idea es poder mover el resultado protegido para cualquier maquina y que no puedan ver el contenido sin mi permiso. Saludos  

El código esta muy bueno, pero cuando trato de proteger la carpeta ubicada en una memoria, no me funciona... 

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...

     

Código (vbnet) [Seleccionar] Expandir



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



Gracias por el aporte..

Disculpen por no aclararlo antes, pero el lenguaje que estoy utilizando es vb.net

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...

Gracias por la ayuda, el código esta muy bueno, espero que a otros usuarios también les sea muy útil.

 

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.  

Código (vbnet) [Seleccionar] Expandir


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


Gracias por todo ya tengo resuelto parte del problema.