¿Sin hardcodear? jajaja, ¿Eso está en el diccionario? ¿Qué significa? Es igual, lo supongo

"sin hardcodear" otra forma que hay de obtener el /Program files/ del sistema que tenía por ahí guardada y que estaba buscando es esta:

Private Sub Command1_Click()
Dim X As Variant
Dim Y As Variant
   Set X = CreateObject("Wscript.Shell")
    Set Y = X.Environment("Process")
    Print Y("PROGRAMFILES")
End Sub

En cuanto  a lo que has posteado  Miseryk , lo de GetModuleHandle no lo he probado y no se muy bien como va. He probado lo siguiente:

 Dim hModule%, Buffer$, Length%, Msg$
         hModule% = GetModuleHandle("notepad.exe")
         Buffer$ = Space$(255)
         Length% = GetModuleFileName(hModule%, Buffer$, Len(Buffer$))
         Buffer$ = Left$(Buffer$, Length%)
         Msg$ = Buffer$
         Msgbox Msg$

:

Pero me da el directorio de VB6.EXE y no el del notepad.exe en este caso, ni siquiera estando en ejecución. He probado sustituyendo hModule% por el hande de la aplicación (en ejecución). Pero nada, que tampoco.

Al usar NULL supongo que tu vas por C++ y no VB, ya que NULL  no es válido en VB6, en sustitución sería vbNull

Si claro que se puede. Se me ocurren varias maneras.

Pero antes de nada permíteme corregir unas líneas del código que te he dado antes. Hice un copia y pega de mi propio código en Form_Unload y se han colado un par de líneas que no tienen utilidad ahí, se trata de la variable hWndChild   que fue un intento de introducir sólamente la Web en el Picture, funcionaba con el Notepad por ejemplo, pero no con Google Chrome. Lo borré en otras partes del código, pero no en el Form_Load, se me pasó. También está lo de Espera(5) que si que es necesario más arriba, porque hay que esperar a que se cargue Google Chrome antes de introducirlo en el Picture, pero para cerrar no hace falta.

Private Sub Form_Unload(Cancel As Integer)
    Dim hwnd As Long
    Dim hWndChild As Long  '<---- BORRAR ESTA LÍNEA
    'Espera (5) '<---- BORRAR ESTA LÍNEA
    hwnd = FindWindow("Chrome_WidgetWin_1", vbNullString)
    Call Cerrar_Google(hwnd) 'cierra Google
End Sub

Debería ser así:

Private Sub Form_Unload(Cancel As Integer)
    Dim hwnd As Long
    hwnd = FindWindow("Chrome_WidgetWin_1", vbNullString)
    Call Cerrar_Google(hwnd) 'cierra Google
End Sub

En cuanto a lo de
- Primera opción: Crear un código de busqueda de Chrome.exe y obtener su directorio (ideal para programas que al actualizarse van cambiando la ubicación) por ejemplo si fuera "\Google\Chrome\Application\V0014\Chrome.exe" y al actualizarse cambiara a  "\Google\Chrome\Application\V00321\Chrome.exe". Que no es el caso. Te lo digo por si alguna vez te encuentras alguna cosa así.

- Segunda opción: Obtener mediante la función Environ el directorio de \program files\ del sistema:

Private Sub Command1_Click()
Print Environ("programfiles")
End Sub
 

y luego añades el resto  "\Google\Chrome\Application\chrome.exe"

Print Environ("programfiles") & "\Google\Chrome\Application\chrome.exe"

- Tercera opción: accediendo al registro de windows

GetModuleFileName(NULL, EXEFullPath, MAX_PATH);
 

Holas,alguien me enseñaria o me pasara algun link de  como usar TLB para llamar a las Api's(VB6) ??

Saludos

hola gente, estoy manejando una cadena que obtengo de la fuente de una pagina en html y lo printeo en un richtextbox, lo que quiero es que el salto de linea sea el delimitador usado en un split o for each, me da igual, el problema es que no me lo toma.. es como si fuera un string solo.

NumberFile = FreeFile
For Each daTos In Split(txtUrl.Text, vbNewLine + vbCrLf)
Open App.Path & "/Date1.txt" For Output As #NumberFile
 Print #NumberFile, daTos
Next daTos
Close #NumberFile

Mi idea es el codigo html obtenido de la pagina guardarlo en un txt de la misma forma con los saltos de linea y eso pero no puedo.. me lo guarda pero es uuna cadena sola que sale con cuadrados q creo que son el salto de linea.

se agradece!
saluddd

Para acortar code podrías usar WHERE name NOT IN (). Podrías crearte una tabla auxiliar que contenga todos los nombres que no quieres (sería más fácil de mantener que no tener que estar tocando los fuentes sin parar) y luego descartarlos con una subconsulta. Un ejemplo por si te sirve:

http://www.java2s.com/Tutorial/MySQL/0040__Select-Query/UsingNOTINwithsubquery.htm

EDIT: ¿qué tienen en común todos esos nombres para que quieras excluirlos? ¿algún valor en algún campo? Igual lo estás complicando demasiado y es suficiente con filtrar por ese campo.

Saludos.

... WHERE Name NOT IN ('Pepe', 'Juan' ....)???