#Region " Get Files "
 
    ' [ Get Files Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    '
    ' For Each file In Get_Files("C:\Windows", False) : MsgBox(file.Name) : Next
    '
    ' For Each file In Get_Files("C:\Windows", True, "dll")   : MsgBox(file.Name) : Next
    ' For Each file In Get_Files("C:\Windows", True, ".dll")  : MsgBox(file.Name) : Next
    ' For Each file In Get_Files("C:\Windows", True, "*.dll") : MsgBox(file.Name) : Next
    '
    ' For Each file In Get_Files("C:\Windows", False, {"dll", "ini"})     : MsgBox(file.Name) : Next
    ' For Each file In Get_Files("C:\Windows", False, {".dll", ".ini"})   : MsgBox(file.Name) : Next
    ' For Each file In Get_Files("C:\Windows", False, {"*.dll", "*.ini"}) : MsgBox(file.Name) : Next
 
    ' Get Files {directory} {recursive}
    Private Function Get_Files(ByVal directory As String, ByVal recursive As Boolean) As List(Of IO.FileInfo)
        Dim searchOpt As IO.SearchOption = If(recursive, IO.SearchOption.AllDirectories, IO.SearchOption.TopDirectoryOnly)
        Return IO.Directory.GetFiles(directory, "*", searchOpt).Select(Function(p) New IO.FileInfo(p)).ToList
    End Function
 
    ' Get Files {directory} {recursive} {ext}
    Private Function Get_Files(ByVal directory As String, ByVal recursive As Boolean, ext As String) As List(Of IO.FileInfo)
 
        If ext.StartsWith("*") Then
            ext = ext.Substring(1, ext.Length - 1)
        ElseIf Not ext = "*" AndAlso Not ext.StartsWith(".") Then
            ext = ("." & ext)
        ElseIf ext = "*" Then
            ext = Nothing
        End If
 
        Dim searchOpt As IO.SearchOption = If(recursive, IO.SearchOption.AllDirectories, IO.SearchOption.TopDirectoryOnly)
        Return IO.Directory.GetFiles(directory, "*" & ext, searchOpt).Select(Function(p) New IO.FileInfo(p)).ToList
 
    End Function
 
    ' Get Files {directory} {recursive} {exts()}
    Private Function Get_Files(ByVal directory As String, ByVal recursive As Boolean, ParamArray exts() As String) As List(Of IO.FileInfo)
 
        Dim FileExts(exts.Count) As String
        Dim ExtCount As Int32 = 0
 
        For Each ext In exts
            If ext.StartsWith("*") Then
                FileExts(ExtCount) = ext.Substring(1, ext.Length - 1)
            ElseIf Not ext = "*" AndAlso Not ext.StartsWith(".") Then
                FileExts(ExtCount) = ("." & ext)
            ElseIf Not ext = "*" AndAlso ext.StartsWith(".") Then
                FileExts(ExtCount) = ext
            ElseIf ext = "*" Then
                FileExts(ExtCount) = Nothing
            End If
            ExtCount += 1
        Next
 
        Dim searchOpt As IO.SearchOption = If(recursive, IO.SearchOption.AllDirectories, IO.SearchOption.TopDirectoryOnly)
        Dim filenameExtComparer As New FilenameExtensionComparer
        Return IO.Directory.GetFiles(directory, "*", searchOpt).Where(Function(o) FileExts.Contains(IO.Path.GetExtension(o), filenameExtComparer)).Select(Function(p) New IO.FileInfo(p)).ToList
 
    End Function
 
    ' FilenameExtensionComparer (Ignore Case) needed for "Get Files {directory} {recursive} {exts()}" overload.
    Public Class FilenameExtensionComparer : Implements IEqualityComparer(Of String)
 
        Public Function Equals1(s As String, t As String) As Boolean Implements IEqualityComparer(Of String).Equals
            Return String.Compare(s, t, StringComparison.OrdinalIgnoreCase) = 0
        End Function
 
        Public Function GetHashCode1(s As String) As Integer Implements IEqualityComparer(Of String).GetHashCode
            Return s.GetHashCode()
        End Function
 
    End Class
 
#End Region

        #Region " Get MD5 Of File Function "
 
          ' [ Get MD5 Of File Function ]
          '
          ' Examples :
          '
          ' MsgBox(Get_MD5_Of_File("C:\Test.txt"))
 
          Private Function Get_MD5_Of_File(ByVal File As String) As String
              Using MD5_Reader As New System.IO.FileStream(File, IO.FileMode.Open, IO.FileAccess.Read)
                  Using MD5 As New System.Security.Cryptography.MD5CryptoServiceProvider
                      Dim MD5_Byte() As Byte = MD5.ComputeHash(MD5_Reader)
                      Dim MD5_Hex As New System.Text.StringBuilder(MD5.ComputeHash(MD5_Reader).Length * 2)
                      For Number As Integer = 0 To MD5_Byte.Length - 1
                          Application.DoEvents()
                          MD5_Hex.Append(MD5_Byte(Number).ToString("X2")) 
                      Next
                      Return MD5_Hex.ToString().ToLower
                  End Using
              End Using
          End Function
 
       #End Region

...Aquí más -> Librería de Snippets !! (Posteen aquí sus snippets)

Después de hacer un largo research por Google para buscar la mejor manera de este tipo de conversión, me he dado cuenta que el formato ICO en .NET solo son problemas y es casi imposible hablar de ICO + Transparencia en las Classes del framework, y después de pelear mucho con la librería FreeImage, al final he optado por usar un wrapper de esta lib para .NET, y aquí está el code que hice de prueba, funciona:

Imports FreeImageAPI
 
'Dim img As FreeImageAPI.FIBITMAP = FreeImage.Load(format, file, FREE_IMAGE_LOAD_FLAGS.ICO_MAKEALPHA)
 
Public Class Form1
 
Dim file As String = "C:\Users\Administrador.ELEKTRO-PC\Desktop\auricular 5.png"
 
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Shown
 
    Dim format As FreeImageAPI.FREE_IMAGE_FORMAT = FreeImage.GetFileType(file, 32)
 
    Dim img As FreeImageAPI.FIBITMAP = FreeImage.LoadEx(file)
 
    Dim Transparency As Byte() = New Byte(0) {}
 
    FreeImage.SetTransparencyTable(img, Transparency)
 
    FreeImage.Save(FREE_IMAGE_FORMAT.FIF_ICO, img, "c:\test.ico", FREE_IMAGE_SAVE_FLAGS.DEFAULT)
 
End Sub
 
End Class

Lo que tu prefieras no importa cuando aceptaste las reglas del foro, imagino que las habrás leido, ¿verdad?, pues debes respetarlas, no puedes hacer lo que quieras e iniciar discusiones de esta manera.

Hacerlo por mensaje privado.

¿En que quieres llevar razón?, en que a lo mejor Ikillnukes ha tenido un despiste y no ha visto un video, o tal vez que el video pro cualquier motivo no habia cargado en su navegador?, ¿y que?, ¿eso te parece un motivo para seguir una discusión sin sentido de dos páginas?

¿Ya basta no?, ya basta los dos.

Saludos.

Importa poco quien tenga razón.

¿Sabeis que existen los mensajes privados?, para arreglar vuestros asuntos y quedar a la salida del instituto, y esas cosas... sobretodo para no perturbar la armonía de esta nuestra comunidad.

PD: Si vais a seguir por aquí esperar 5 minutos que ya tengo las palomitas en el microondas xD.

Saludos

La cuestión es que @Syntax dijo que había un video, pero Ikillnukes no vió ninguno, y yo que estaba colocado de hierba ví tres videos, ¿¡Quien tiene razón!?. 

Vamos a ver, si le librería necesita ser adjuntada (como todas las que conozco que manejan procesos), por mucho que digas que sobra, lo tienes que hacer, ahora, como ya digo yo no uso esa lib así que no sé seguro como funciona.

Un saludo

Me encantan vuestras apuñaladas salvajes xD

---

@SyntaxError

Al guardar por segunda vez, antes de serializar, deserializas?.

Saludos

No tengo la lib pero ...óvbiamente primero tienes que adjuntarlo al proceso del skype:

' oSkype.Client.Start
oSkype.Attach

...Y luego:

oSkype.Client.OpenAddContactDialog("ElektroStudios")

-> http://users.skynet.be/fa258239/bestanden/skype4com/skype4com.pdf

@Meine programmen

Lo acabo de testear de la manera en la que has comentado y exáctamente con los dos mismos nombres de archivo,
Sigo reafirmando que el código de @japarrado funciona y no necesita ninguna modificación, al menos bajo Windows 8.

Es óbvio que si ustedes dos dicen que no funciona entonces aquí hay un nuevo problema descubierto, el problema es que en la versión de Windows que estén utilizando hay un bug respecto al keyword: "?".

La solución es actualizar la plataforma de Windows, o seguir las indicaciones del compañero @Meine programmen.

PD: Siento no haber podido ayudar de mejor forma esta vez, era imposible deducir que se trataba de un bug de una versión anterior de Windows, era más fácil asumir que el usuario se habia equivocado al afirmar que NO funcionaba el código.

Un saludo!