SoloCodigo

Aqui te adjunto el fichero de ejemplo.
Espero que sea lo que buscabas.

Saludos,
Roberto García

A que te refieres con los mensajes de confirmación?

Puedes ser un poco más explícito.

Gracias.
Saludos,
Roberto García

Mira en la ayuda el objeto FileSystemObject, con este objeto podrás ver todos los ficheros de una carpeta determinada, o la estructura de directorios, ficheros, ... de una ruta determinada, y algunas cosas más. En la ayuda te explica perfectamente como utilizarlo.

Espero que te haya ayudado con mi información. Si aun así no eres capaz de hacer lo que preguntas dimelo y te hare un ejemplo.

Saludos,
Roberto García

Con este código podrás utilizar el seleccionador de carpetas del windows. Aquí te dejo el código: En un formulario añade un commandButton que se llame cmdExaminar y un textbox que se llame txtRuta.

{Form Code}
'Este código lo pones en el código del formulario
Private Sub cmdExaminar_click ()    
       txtRuta.Text = Module1.GetFolder(Form1.hWnd, "Select folder")
End Sub

{Module Code}
'Agregas un módulo y le pegas este código.
Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
Declare Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long

Const BIF_RETURNONLYFSDIRS = &H1
Const BIF_DONTGOBELOWDOMAIN = &H2
Const BIF_STATUSTEXT = &H4
Const BIF_RETURNFSANCESTORS = &H8
Const BIF_BROWSEFORCOMPUTER = &H1000
Const BIF_BROWSEFORPRINTER = &H2000


Type BROWSEINFO
  hOwner As Long
  pidlRoot As Long
  pszDisplayName As String
  lpszTitle As String
  ulFlags As Long
  lpfn As Long
  lParam As Long
  iImage As Long
End Type

Function GetFolder(ByVal hWndOwner As Long, ByVal sTitle As String) As String
Dim bInf As BROWSEINFO
Dim RetVal As Long
Dim PathID As Long
Dim RetPath As String
Dim Offset As Integer
    bInf.hOwner = hWndOwner
    bInf.lpszTitle = sTitle
    bInf.ulFlags = BIF_RETURNONLYFSDIRS
    PathID = SHBrowseForFolder(bInf)
    RetPath = Space$(512)
    RetVal = SHGetPathFromIDList(ByVal PathID, ByVal RetPath)
    If RetVal Then
      Offset = InStr(RetPath, Chr$(0))
      GetFolder = Left$(RetPath, Offset - 1)
    End If
End Function

Espero que te sirva.

Saludos,
Roberto García

En esta página la final aparece cracks para el setup factory, prueba a ver si te vale alguno.

http://cracks.thebugs.us/pages/S/4.shtml

sino de todas formas búscalo en el google que fijo que lo encuentras.

Para realizar el setup con este programa tienes primero que escanear las dependencias del ejecutable y luego escanear el proyecto de tu aplicación para que te agrege el los ocx que te hacen falta.

Además cuando lo creas con el wizard tienes que indicarle la carpeta donde esta tu aplicación para que te agrege todos los ficheros que le hacen falta, luego elimina todos los que no quieres que pertenezcan a la instalación como por ejemplo los módulos, los formularios, etc., es decir deja sólo el ejecutable, imágenes que te hagan falta, iconos, etc.

Espero que te sirva de ayuda.

Saludos,
Roberto García

Es que ultimamente las aplicaciones que hago no necesitan que haga combos asi, por eso no lo utilizo pero sino lo haria asi.

En la propiedad Datafield del combo es donde le indicas el campo que quieres mostrar.

Saludos,
Roberto García

Yo no lo he echo nunca porque no lo he necesitado pero creo recordar que hay un objeto en Visual Basic con el que se puede hacer eso. El objeto es Microsoft Internet Transfer o algo parecido.

Busca información en la ayuda de Visual que hay te viene muy bien explicado.

Espero que te sirva.

Saludos,
Roberto García

Yo también lo apoyo. Me parece muy buena idea xq creo q esto nos puede ayudar a todos.

Saludos,
Roberto García

He encontrado ya la solución. Hay un objeto que es Microsoft Internet Transfer Control.

Con este control se puede hacer muchas cosas. Buscar en la ayuda de visual basic hay viene todo lo que se puede hacer con él. Está muy bien.

Saludos,
Roberto García

Los ocx hay que copiarlos en la carpeta system 32 y luego registrarlos con el comando regsvr32 nombre_ocx.ocx

Espero que sea esto lo que querias saber.

Saludos,
Roberto García

Yo también lo apoyo. Me parece muy buena idea xq creo q esto nos puede ayudar a todos.

Saludos,
Roberto García