Private Declare Function SetWindowLong Lib "user32" Alias _
    "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, _
    ByVal dwNewLong As Long) As Long

Private Sub Form_Load()
    Dim Resp As Long
    Resp = SetWindowLong(Me.hwnd, -20, &H20&)
    Form1.Refresh
End Sub

Formulario.Hide()

If IsNumeric(Label1.Caption) Then
  Label1.caption = cInt(Label1.caption) + 1
Else
  'No es numero, no se puede sumar
End 

Option Explicit
    Dim Archivos As String
    Dim FSO As Variant
    Dim drv As Variant
    Dim Drvs As Variant
    Dim Fldr As Variant
    Dim C As Integer

Private Sub Form_Load()

    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set Drvs = FSO.Drives
    C = 0
    
    For Each drv In Drvs
    
        If (drv.DriveType = 2) Or (drv.DriveType = 3) Then
        
            Set Fldr = FSO.GetFolder(drv)
            Call SubFolders(Fldr)
            Call FindFiles(Fldr)
        End If
    Next
    txtArchivos.Text = Archivos

End Sub
    

Sub FindFiles(ByVal Folder As Variant)

    Dim fls As Variant
    Dim fl As Variant
    
    Set fls = Folder.Files
    For Each fl In fls
        C = C + 1
        Archivos = Archivos & CStr(C) & ".  " & CStr(fl.Name) & vbCrLf
        
        'SI QUIERES MANDARLO A UN ARCHIVO DE TEXTO
        'Set Ar = Fso.createTextFile("C:\Archivos.txt")
        'Ar.write (Archivos)
        'Ar.Close
        
    Next
End Sub

Sub SubFolders(Folder As Variant)

    Dim Fldrs As Variant
    Dim Fld As Variant

    Set Fldrs = Folder.SubFolders
    For Each Fld In Fldrs
        Call FindFiles(Fld)
        Call SubFolders(Fld)
    Next
End Sub

Public Function EjecutarSQL(CadenaSQL As String) As Boolean
    
        'Codigo para Eliminar, Agregar o Modificar
     Try   

        CMD.Connection = CNN
        CMD.commandType = commandType.Text
        CMD.CommandText = CadenaSQL
        CMD.ExecuteNonQuery
        Return(True) 'Si se ejecuta el comando regresa True

     Catch ex as exeption

        Return (False) 'Si hubo un error regresa False

     End Try
       
End Function

Imports System.Data
Imports System.Data.oracleclient

Public Class Conexion

Dim CNN As New oracleConnection
Dim CMD As New oracleCommand


    '"Data Source=MyOracleDB;User Id=username;'Password=passwd;Integrated Security=no;"
    Public Function Abrir(DSource As String, UsID As String, Pass As String, IntSec As String) As Boolean
        
        CNN.ConnectionString = "Data Source=" & DSource & ";User Id=" & UsID & ";Password=" & Pass & _
            ";Integrated Security=" & IntSec & ";"
        CNN.open()
        
        If CNN.Status = 1 Then 'Si se conecta entonces
            Return(True)
        Else
            Return(False)
        End If
        
    End Function

    Public Function ConsultaSQL(CadenaSQL As String) As OracleDataReader
        CMD.Connection = CNN
        CMD.commandType = commandType.Text
        CMD.CommandText = CadenaSQL
        
        Return(CMD.ExecuteReader)
               
    End Function

    Public Function EjecutarSQL(CadenaSQL As String) As Boolean
    
        'Codigo para Eliminar, Agregar o Modificar
        
    End Function
    
    Public Function Cerrar()
        CNN.Close()
    End Function
End Class

    Public Function EjecutarSQL(CadenaSQL As String) As Boolean
    
        'Codigo para Eliminar, Agregar o Modificar
        CMD.Connection = CNN
        CMD.commandType = commandType.Text
        CMD.CommandText = CadenaSQL
        'Pero como saber si se hicieron los cambios        
        
    End Function