@
NovluckerQue grande,
antes de nada debo decir que para mi tus críticas o sugerencias (O ataques personales si se da el caos xD) son más que bien recibidas, y segundo, gracias por colocarle chincheta al tema (Quien haya sido xD), a ver si la gente se anima a compartir funciones/snippets.
Voy por partes:
1.
Sincéramente yo no le daba nada de importancia a definir el tipo de retorno de una función, ¿Porque?, pues no sé, quizás séa porque como muchas funciones las he hecho yo pues sé perfectamente que tipo de valor devuelven y no debo fijarme en esos detalles que comentas, o simplemente no le he dado importancia sin razón alguna, pero me lo has hecho ver de una manera en la que no me habia fijado, y te aseguro que estoy editando los 124 snippets definiendo el tipo de retorno de cada uno xD.
Lo malo de esto, es que si declaro el tipo en boolean (Por ejemplo), entonces ya no puedo retornar el mensaje de la excepción (Return ex.message), ¿O si?.
2.
Con tu modificación que le has hecho a la función de los atributos me has dejado loco!
Diréctamente no la entiendo...
Attributes.Select(Function(a) DirectCast(a, Integer)).Sum()
De ahí lo único que entiendo es que modificas el valor "a" a tipo entero (no se lo que significa esa "a"), lo de "Select", "Function", y "Sum, ni idea XD
Bueno, el método "Sum" ya he visto que crea una sequencia parecida a esto:
32 + 64
Lo que equivale a los valores para cambiar los atributos, vale, pero el proceso que haces para llegar a generar esa secuencia... ni idea
.
Lo peor de todo es que no sé usar tu modificación de la función de atributos, es muy avanzada '¬¬
Así que mientras no me muestres un ejemplo de como usar tu función, la dejo así, que está mejor que la versión original y se asemeja al comando ATTRIB de la CMD, lo que me facilita un poco más su uso:
#Region " Change File Attributes Function "
' [ Change File Attributes Function ]
'
' // By Elektro H@cker
'
' Examples :
' Change_File_Attributes("C:\File.txt", H + R)
' Change_File_Attributes("C:\File.txt", Hidden + Read_Only)
Const Archive As Integer = 32, A As Integer = 32
Const Directory As Integer = 16, D As Integer = 16
Const Hidden As Integer = 2, H As Integer = 2
Const Normal As Integer = 0, N As Integer = 0
Const Read_Only As Integer = 1, R As Integer = 1
Const System As Integer = 4, S As Integer = 4
Const Volume As Integer = 8, V As Integer = 8
Private Function Change_File_Attributes
(ByVal File As String,
ByVal Attributes
As System.
IO.
FileAttributes) As Boolean Try
FileSystem.
SetAttr(File, Attributes
) Return True ' File was modified OK
Catch
Return False ' File can't be modified maybe because User Permissions
End Try
Else
Return Nothing ' File doesn't exist
End If
End Function
#End Region
3.
Tu modificación de la función de las capacidades de discos es inmejorable,
Me doy cuenta que tengo que usar más las constantes y las enumeraciones si quiero perfeccionar y simplificar las cosas (Si te digo la verdad pensé que esa función no se podía simplificar más, hasta que he visto tu modificación xDDD, me kawen tó)
Gracias por los consejos y un saludo