HOLA!!!

Para copiar carpetas que es lo que quieres hacer yo uso la funcion xCopy de pkj

Function XCopy(srcPath As String, dstPath As String, Optional FilePat As String = "*.*", Optional IncludeSubDirs As Boolean = True, Optional Sobreescribir As Boolean = True) As Integer
 
  ' Ejmp:
  ' XCopy "c:\p1", "d:\p1"
 
  ' funciona tambien en red:
  ' XCopy "//PC001/C/p1", "//PC002/C/p1"
 
 
  Const ATTR_DIRECTORY = 16
 
  Dim DirOK As Integer, i As Integer
  Dim DirReturn As String
  ReDim d(1) As String
  Dim dCount As Integer
  Dim CurrFile$
  Dim CurrDir$
  Dim dstPathBackup As String
  Dim f%
 
  On Error Resume Next
 
  MkDir dstPath
 
  If InStr(1, srcPath, "\") Or InStr(1, srcPath, ":") Then
    If Right(srcPath, 1) <> "\" Then srcPath = srcPath & "\"
  ElseIf InStr(1, srcPath, "/") Then
    If Right(srcPath, 1) <> "/" Then srcPath = srcPath & "/"
  End If
  If InStr(1, dstPath, "\") Or InStr(1, dstPath, ":") Then
    If Right(dstPath, 1) <> "\" Then dstPath = dstPath & "\"
  ElseIf InStr(1, dstPath, "/") Then
    If Right(dstPath, 1) <> "/" Then dstPath = dstPath & "/"
  End If
 
  On Error GoTo DirErr
 
  CurrDir$ = CurDir$ ' directorio actual de trabajo
  srcPath = UCase$(srcPath)
  dstPath = UCase$(dstPath)
 
  dstPathBackup = dstPath ' guardamos el directorio destino
 
  ' Iniciamos variables para mantener los nombres de archivos
  DirReturn = Dir(srcPath & "*.*", ATTR_DIRECTORY)
 
  ' Buscamos todos los Subdirectorios
  Do While DirReturn <> ""
    ' aseguramos que no se haga nada con "." y ".."
    If DirReturn <> "." And DirReturn <> ".." Then
      If (GetAttr(srcPath & DirReturn) And ATTR_DIRECTORY) = ATTR_DIRECTORY Then
        ' agregamos a la lista de directorios
        dCount = dCount + 1
        ReDim Preserve d(dCount)
        d(dCount) = srcPath & DirReturn
      End If
    End If
    DirReturn = Dir
  Loop
 
  ' ahora hacemos que los archivos que coicidan
  DirReturn = Dir(srcPath & FilePat, 0)
 
  ' Buscamos todos los archivos
  Do While DirReturn <> ""
    ' aseguramos que no es directorio
    If Not ((GetAttr(srcPath & DirReturn) And ATTR_DIRECTORY) = ATTR_DIRECTORY) Then
      ' es un archivo y se copia
 
      'Si existe miramos si se sobre-escribe
      On Error Resume Next
      f% = FreeFile
      Open dstPath & DirReturn For Input As #f%
      Close #f%
      If Err <> 0 Or Sobreescribir = True Then
        FileCopy srcPath & DirReturn, dstPath & DirReturn
      End If
    End If
    DirReturn = Dir
  Loop
 
   ' Ahora hacemos los subdirectorios
  For i = 1 To dCount
    If IncludeSubDirs Then
      On Error GoTo PathErr
      dstPath = dstPath & Right$(d(i), Len(d(i)) - Len(srcPath))
      ' si el path no existe lo creamos
      ChDir dstPath
      On Error GoTo DirErr
    Else
      XCopy = True
      GoTo ExitFunc
    End If
    DirOK = XCopy(d(i), dstPath, FilePat, IncludeSubDirs, Sobreescribir)
    ' Reiniciamos dstPath al valor asignado
    dstPath = dstPathBackup
  Next
 
  XCopy = True
 
ExitFunc:
  ChDir CurrDir$
  Exit Function
DirErr:
  MsgBox "Error: " & Error$(Err)
  XCopy = False
  Resume ExitFunc
PathErr:
  If Err = 75 Or Err = 76 Then ' si no encontramos el path
    MkDir dstPath
    Resume Next
  End If
  GoTo DirErr
End Function
 

Y, para que sea como vos decis que copie siempre lo que esta en la carepeta de el yo haria asi:

 
Private Sub Command1_Click()
  XCopy AppPath, Text1.Text ' en text1 pones el path de destino (con este codigo incluis subcarpetas y sobreescribis)
End Sub

Espero que te sirva (¡Lee Bien los Paarametros de la Funcion!)

GRACIAS POR LEER!!!

HOLA!!!

Tabla actualizada   

GRACIAS POR LEER!!!

HOLA!!!

En cuanto a que van a inventar el transplante de memoria no, pero que el cerebro duraria entre 200 y 400 años si no nos da ninguna enfermedad que lo involucre es cierto(Discovery XD).


GRACIAS POR LEER!!!

HOLA!!!


1)ACTUALIZADO CON LA FUNCION DE Tokes
2)ACTUALIZADO CON LA NUEVA VERSION DE KarCrack
3)ACTUALIZADO CON LA FUNCION MODIFICADA DE Raul (de la de KarCrack)
4)AMPLIADO EL BUCLE A 2000 VUELTAS
5)AGREGADA LA FUNCION MODIFICADA DE Mr.Frog (de la de Raul  de la de KarCrak)


La tabla (como la de Raul):

GRACIAS POR LEER!!!

HOLA!!!

mmm, No se si exel sin usar VBA pueda loguearse, asi que mi opinion es que busques otra pagina con la misma info pero sin login, de ultima si queres sacar info acotada sacas toda y la filtras.

GRACIAS POR LEER!!!

HOLA!!!

Mira, una vez hice una aplicacion de la bolsa, sacaba los datos de las acciones todos los dias, y despues analizaba el panorama como estaba...

Mi recomendacion usa Exel para extraer la tabla de la pagina y despues lee el Exel desde VB6 es lo mas facil...

En cuanto a los graficos:
http://code.google.com/apis/chart/
(para mi la mejor opcion si tenes internet asegurada)


GRACIAS POR LEER!!!

HOLA!!!

Si, el cerebro no duraria mucho, a lo sumo 200 o 400 años (suponiendo que no tengas ninguna enfermedad relacionada con él), talves el tiempo suficiente para que creen un transplante de informacion de un cerebro al otro osea asi en vez de cambiar el cerebro cambiamos la informacion que esta dentro y listo. XD

GRACIAS POR LEER!!!

HOLA!!!

Mmm, el Inline Asm te lo debo, pero tira rayos por los ojos XD

'armen un form con:
' 2 shapes
' 2 lines
' 1 timer
' y denle a f5
 
Private Function F_Exist(sPath As String) As Boolean
    If Dir(sPath) <> "" Then F_Exist = True
End Function
 
 
Private Sub Form_Load()
    Me.ScaleMode = vbPixels
    Me.ScaleHeight = 600
    Me.ScaleWidth = 800
    Shape1.Top = Me.ScaleHeight / 2 - 200
    Shape2.Top = Me.ScaleHeight / 2 - 200
    Shape1.Left = Me.ScaleWidth / 2 - 150
    Shape2.Left = Me.ScaleWidth / 2 + 150
    Shape1.Shape = 2
    Shape2.Shape = 2
    Shape1.Width = 150
    Shape2.Width = 150
    Shape1.Height = 300
    Shape2.Height = 300
    Line1.BorderColor = &HFF&
    Line2.BorderColor = &HFF&
    Line1.X1 = Shape1.Left + Shape1.Width / 2
    Line1.Y1 = Shape1.Top + Shape1.Height / 2
    Line2.X1 = Shape2.Left + Shape2.Width / 2
    Line2.Y1 = Shape2.Top + Shape2.Height / 2
    Timer1.Interval = 100
End Sub
 
Private Sub Timer1_Timer()
    Randomize
    neg = 1
    If Rnd() * 2 > 1 Then neg = -1
    Line1.X2 = Shape1.Left + Shape1.Width / 2 + Rnd() * 300 * neg
    neg = 1
    If Rnd() * 2 > 1 Then neg = -1
    Line1.Y2 = Shape1.Top + Shape1.Height / 2 + Rnd() * 300 * neg
    neg = 1
    If Rnd() * 2 > 1 Then neg = -1
    Line2.X2 = Shape2.Left + Shape2.Width / 2 + Rnd() * 300 * neg
    neg = 1
    If Rnd() * 2 > 1 Then neg = -1
    Line2.Y2 = Shape2.Top + Shape2.Height / 2 + Rnd() * 300 * neg
    Debug.Print F_Exist("c:\hola.txt")
End Sub
 

GRACIAS POR LEER!!!

HOLA!!!

Lo que hay que hacer es perfeccionar el transplante de cerebro...

El tema seria asi:

a los 40 años nos hacemos un clon...

lo dejamos dormidito con medicamentos (anestesiado)...

a los 60 años el clon tiene 20 años y nosotros 60 años...

hacemos un transplante de cerebro de nosotros al clon y...

¡¡¡TENEMOS UN CUERPO NUEVO DE 20 AÑOS!!!

GRACIAS POR LEER!!!

HOLA!!!


QUITE EL CODIGO POR QUE ACABE DE VER QUE HICISTE DOBLE POST O MAS Y NO DEBES TENER NI IDEA DE VB6 ASI QUE BYE 



GRACIAS POR LEER!!!