Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
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
If IsNumeric(Label1.Caption) Then
Label1.caption = cInt(Label1.caption) + 1
Else
'No es numero, no se puede sumar
End
![:-\](https://forum.elhacker.net/Smileys/navidad/undecided.gif ":-\")
Si es cierto eso y si me ha dado algunos problemas pero para hacerlo con APIs no me lo se, comoquiera dejame investigar porque yo también lo necesito y si lo encuentro te lo paso
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