|
Mostrar Mensajes
|
Páginas: 1 2 [3] 4 5
|
21
|
Programación / .NET (C#, VB.NET, ASP) / Re: cifrar Carpetas
|
en: 6 Octubre 2016, 20:50 pm
|
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.
|
|
|
22
|
Programación / .NET (C#, VB.NET, ASP) / Re: cifrar Carpetas
|
en: 5 Octubre 2016, 21:19 pm
|
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
|
|
|
24
|
Programación / Programación Visual Basic / Ayuda a optimizar codigo
|
en: 5 Octubre 2016, 18:02 pm
|
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
|
|
|
27
|
Programación / .NET (C#, VB.NET, ASP) / cifrar Carpetas
|
en: 5 Octubre 2016, 14:06 pm
|
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...
|
|
|
29
|
Programación / .NET (C#, VB.NET, ASP) / Listar ficheros
|
en: 22 Septiembre 2016, 23:40 pm
|
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
|
|
|
|
|
|
|