@xassiz
No, ese modificador es para la fecha de modificación.

@Tmarmol
Los temas de Batch van en Scripting.

Aquí tienes:

Saludos.

La letra de unidad se puede modificar muy fácilmente, y "C:\" no tiene porque ser siempre la unidad principal, en muchos casos es "D:\", y si tu APP depende de rutas del sistema, pues... bueno, irá en el 99,9% de PC's, eso también te lo digo xD.

Espero que no te ofendas pero sincéramente eso de desarrollar una aplicación utilizando "C:\" (o cualquier otra ruta absoluta del sistema) para cosas importantes en lugar de usar la variable que contiene el valor de la letra del disco duro (o de la ruta absoluta del sistema) lo véo muy mala práctica e ineficáz,
usa las variables de Windows, que para algo están.

PD: Me alegra haberte podido ayduar.

Un saludo.

1.

Tu instalador sólo funcionará en equipos que dispongan de la unidad C:\, debes usar la constante adecuada:

2.

Estás indicando en el directorio de destino la ruta "C:\":
{app} = DefaultDirName = C:\

Entonces haz esto:

Y eso equivaldría a:

Saludos

Yo no lo cerré, no soy moderador de esta sección, también me cerraron mi post por desgracia.

---

        Dim Texto As String = My.Computer.FileSystem.ReadAllText("C:\Archivo.txt")
        Dim Pos As Integer = InStr(Texto, "String")
        MsgBox(Pos)

        Dim Text_Pos As String = InStr(My.Computer.FileSystem.ReadAllText("C:\Archivo.txt"), "String")
        MsgBox(Text_Pos)

Para cambiar los cursores de Windows (En el sistema, fuera del form)

#Region " Set System Cursor Function "
 
    ' [ Set System Cursor Function ]
    '
    ' Examples :
    '
    ' Set_System_Cursor("C:\Cursors\Arrow.ani", System_Cursor.ARROW))
    ' MsgBox(Set_System_Cursor("C:\Cursors\Cross.cur", System_Cursor.CROSS))
 
    ' Set System Cursor [ API declarations ]
    Private Declare Function SetSystemCursor Lib "user32.dll" (ByVal hCursor As IntPtr, ByVal id As Integer) As Boolean
    Private Declare Function LoadCursorFromFile Lib "user32.dll" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As IntPtr
 
    ' Set System Cursor [ API Constants ]
    Private Enum System_Cursor As UInt32
        APP_STARTING = 32650
        ARROW = 32512
        CROSS = 32515
        HAND = 32649
        HELP = 32651
        I_BEAM = 32513
        NO = 32648
        SIZE_ALL = 32646
        SIZE_NESW = 32643
        SIZE_NS = 32645
        SIZE_NWSE = 32642
        SIZE_WE = 32644
        UP = 32516
        WAIT = 32514
    End Enum
 
    ' Set System Cursor [ Function ]
    Private Function Set_System_Cursor(ByVal Cursor_File As String, ByVal Cursor_Type As System_Cursor) As Boolean
        If SetSystemCursor(LoadCursorFromFile(Cursor_File), Cursor_Type) = 0 Then Return False ' Error loading cursor from file
        Return True
    End Function
 
#End Region

---

Hotmail sender (Envía correos desde hotmail)

* Es necesario descargar la librería EASENDMAIL (Es gratis aunque se puede comprar licencia): http://www.emailarchitect.net/webapp/download/easendmail.exe  

PD: Sé que esto se puede hacer con la class system.net.mail, pero con esto no dependemos de puertos, y el SSL de los servidores que usemos en la librería se detecta automáticamente...

#Region " Hotmail Sender Function "
 
    ' [ Hotmail Sender Function ]
    '
    ' // By Elektro H@cker
    '
    ' * First add a reference to "EASendMail" into the project.
    '
    ' Examples :
    '
    '  MsgBox(Hotmail_Sender("ElektroHacker@hotmail.com", "MyPass", "Anonym@gmail.com", "Test subject", "Test body", {"C:\File1.txt", "C:\File2.txt"}))
 
    Private Function Hotmail_Sender(ByVal Account_User As String, ByVal Account_Password As String, ByVal Mail_To As String, ByVal Mail_Subject As String, ByVal Mail_Body As String, Optional ByVal Mail_Attachments() As String = Nothing) As Boolean
 
        Dim Hot_Mail As New EASendMail.SmtpMail("TryIt")
        Dim Hot_Server As New EASendMail.SmtpServer("smtp.live.com")
        Dim Hot_Smtp As New EASendMail.SmtpClient()
 
        Hot_Server.User = Account_User
        Hot_Server.Password = Account_Password
        Hot_Server.ConnectType = EASendMail.SmtpConnectType.ConnectSSLAuto
 
        Hot_Mail.From = Account_User
        Hot_Mail.To = Mail_To
        Hot_Mail.Subject = Mail_Subject
        Hot_Mail.TextBody = Mail_Body
        If Mail_Attachments IsNot Nothing Then For Each Attachment In Mail_Attachments : Hot_Mail.AddAttachment(Attachment) : Next
 
        Try : Hot_Smtp.SendMail(Hot_Server, Hot_Mail) : Return True
        Catch ex As Exception : Return False : End Try
 
    End Function
 
#End Region

Keyen, muchas gracias por la info, a pesar de que ahora pienses que soy un vago quizás por culpa de lo que siempre anda comentando spiritdead... a mi cualquier información que me den me sirve para empezar, y no te preocupes que buscaré.

Me dejas bastante perdido porque yo siempre he usado la API de windows para realizar funciones y cambios, sin necesidad de hacer gran cosa, pero no para recibir/interceptar/monitorizar datos, y no sé si será tán fácil como almacenarlo en una variable cada cierto tiempo para comprobar el valor del resultado y ya está, pero bueno, ya lo busco.

Saludos

Pero no lo eres, y eso es lo que diferencia a moderadores de usuarios:
Novlucker: madurez + buen juicio + saber hacer
Tú: payasadas + insultos + amenazas (en resumen, lo que se denomina como "troll", sin odenfer)

Tranquilo, que por suerte nunca serás moderador por esa personalidad.

Y con esto me despido de esta discusión,
saludos.

si muy bien spiritdead, yo ya sabía que la class system.io tiene methods que lo hacen mucho más extensivo que usar my.computer.filesystem, que este último se queda corto en "opciones", y también sé que downloadfile necesita escribir mediante un stream, que no hace mágia, vale, pero no por eso yo iba a ser adivino y saber que es una mala práctica usar my.computer, porqué lo vi en los snippets de Microsoft al empezar en VB.NET, que como te recuerdo, llevo poco tiempo,
y cuando ves que en la propia información del VS usan my.computer para todo, tanto tu, como yo, y cualquiera, tendería a pensar que está ahí porque es lo más correcto, no lo más sencillo, ahora, gracias por la aclaración, a pesar de tus insultos.

Saludos.

Puedes intentar putear todo lo que quieras, es lo que hacen los payasos, pero ahora díme, de entre todas las gilipolleces que acabas de decirme, ¿que tiene que ver con lo de ponerse a investigar cosas que uno no sabe que tiene que investigarlas?, ¿también eres mago aparte de payaso?.

Saludos

Y como esperabas que me pusiera a investigar en Google "¿Es mejor system.io que my.computer"? así porque sí sin venir a cuento, si la primera referencia que he tenido de dicha diferencia es ahora mismo por parte de Keyen?,
¿Acaso tu buscas las cosas cuando no sabes ni siquiera que necesitas buscarlas?,
creo que tu tampoco sabes mucho lo que dices cuando te pones a criticar, spiritdead.

saludos