Visual Basic 2005. Salvar archivos desde Visual Basic.

[moradazo]

Yo igual busqué un código que busca las ventanas:

Código:

Option Explicit  
  
'Constantes para los nombres de clases   
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''   
'Algunos nombres de clase de ventanas El Outlook   
Const MSOutlook = "OpusApp"  
'El Excel   
Const MSExcel = "XLMAIN"  
'El Internet Explorer   
Const MSIExplorer = "IEFrame"  
Const MSVBasic = "wndclass_desked_gsk"  
'El bloc de notas   
Const NotePad = "Notepad"  
'Formularios de Visual basic   
Const MyVBApp = "ThunderForm"  
  
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''   
  
' Funciòn APi para buscar Ventanas de Windows   
Private Declare Function FindWindow _   
    Lib "user32" _   
    Alias "FindWindowA" ( _   
        ByVal lpClassName As String, _   
        ByVal lpWindowName As String) As Long  
  
  
Private Sub Comprobar(clase As String)   
  
Dim ret As Long  
       
    ' busca la ventana y retorna el Handle   
    ret = FindWindow(clase, vbNullString)   
       
    'si retorna distinto _   
     de 0 es porque la encontró   
    If ret <> 0 Then  
        MsgBox "La aplicación está abierta", vbInformation + vbOKOnly   
    Else  
        MsgBox "La aplicación NO está abierta", vbInformation + vbOKOnly   
    End If  
       
End Sub  
  
Private Sub Command1_Click()   
    ' Para comprobar si está abierto el Internet explorer   
    Comprobar MSIExplorer   
End Sub  
  
Private Sub Command2_Click()   
    ' Para comprobar si está abierto el Microsoft Excel   
    Comprobar MSExcel   
End Sub  
  
  
Private Sub Command3_Click()   
    ' Para comprobar si está abierto el Microsoft OutLook   
    Comprobar MSOutlook   
End Sub  
  
Private Sub Command4_Click()   
    ' Para comprobar si está abierto formularios de Visual Basic   
    Comprobar MSVBasic   
End Sub  
  
  
Private Sub Command5_Click()   
    ' Para comprobar si está abierto el Bloc de notas   
    Comprobar NotePad   
End Sub  
  
  
  
Private Sub Form_Load()   
       
    Command1.Caption = " Internet Explorer "  
    Command2.Caption = " Microsoft Excel "  
    Command3.Caption = " Microsoft Outlook "  
    Command4.Caption = " Visual basic "  
    Command5.Caption = " Bloc de notas "  
  
End Sub

Como ven, los Command1.Caption no me funciona, lo probé con Capture, pero siempre me da resultados de que existen las ventanas pero no es cierto, que podrá ser? gracias.