Mensajes

Fijate que gran parte de la documentacion de la MSDN ya no es para VB6

Código (vb) [Seleccionar] Expandir

' Creates text string.
Dim TestString As String = "Mid Function Demo"
' Returns "Mid".
Dim FirstWord As String = Mid(TestString, 1, 3)
' Returns "Demo".
Dim LastWord As String = Mid(TestString, 14, 4)
' Returns "Function Demo".
Dim MidWords As String = Mid(TestString, 5)

Prueba a ejecutar eso en VB6

Fijate que al poner Mid( te saldra la declaracion de la funcion, si pones Mid$( pone al final "As String"

A la hora de programar no hay diferencia, pero una vez compilado el proceso es distinto

Utilizar el dolar es mas optimo, debido a que si no especificas usando el dolar que quieres que devuelva String, la funcion devuelve Variant, luego VB tiene que hacer la conversion para meter los datos en una String

A los 13, tengo 17

No entiendo por que te complicas tanto para hacer el StrReverse()

Código (vb) [Seleccionar] Expandir

Public Function Str_Reverse(Expression As String) As String
   Dim i     As Integer
   For i = Len(Expression) To 1 Step -1
       Str_Reverse = Str_Reverse & Mid$(Expression, i, 1)
   Next i
End Function

Con un poco de logica y StrReverse() tienes mas que suficiente

Eso esta clarisimo, solo digo que un ejemplo lo dejaria clarisimo!!

Podrias pegar un ejemplo de Autorun generado

... Y si haces eso como escribes tu en tu propio PenDrive de forma legitima?

No, no lo has entendido...

Cambias la forma en que queda el API en el ejecutable...En vez de estar como de costumbre lo hace VB las añade en la IAT...

[s]

No existe ".driveexits"... por el contrario SI existe ".DriveExists"

Código [Seleccionar] Expandir

http://msdn.microsoft.com/en-us/library/6kxy1a51(VS.85).aspx

MOD:
Mejor sera que uses la propiedad IsReady() del objeto Drive para comprobar que sea accesible en vez de DriveExists()

Código (vb) [Seleccionar] Expandir

Function ShowDriveList
  Dim fso, d, dc, s, n
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set dc = fso.Drives
  For Each d in dc
     n = ""
     s = s & d.DriveLetter & " - "
     If d.DriveType = 3 Then
        n = d.ShareName
     ElseIf d.IsReady Then
        n = d.VolumeName
     Else
        n = "[Drive not ready]"
     End If
     s = s & n & "<BR>"
  Next
  ShowDriveList = s
End Function

Código [Seleccionar] Expandir

http://msdn.microsoft.com/en-us/library/x0s9y250(v=VS.85).aspx