Mensajes

así

Código (vb) [Seleccionar] Expandir

Dim extensiones As String
 
extensiones = "(*.doc,*.txt)"
               
Open "C:\Users\CENTRAL\Desktop\test.txt" For Append As #1

Print #1, "(FOR /R " & """%userprofile%\Mis documentos\""" & " %%a IN " & extensiones & "  DO  " & "(copy /y " & """%%a""" & " " & """E:\datossss\""" & ")) >NUL"


Close #1
.

podrias hacerlo desde vb6 todo :S.

Código (vb) [Seleccionar] Expandir

Private Type SHFILEOPSTRUCT
    hWnd As Long
    wFunc As Long
    pFrom As String
    pTo As String
    fFlags As Integer
    fAborted As Boolean
    hNameMaps As Long
    sProgress As String
End Type

Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

Const FOF_NOCONFIRMATION = &H10 ' Don't prompt the user.
Const FOF_NOCONFIRMMKDIR = &H200 ' don't confirm making any needed dirs
Const FO_COPY = &H2

Private Function NuCopy(source As String, target As String) As Boolean
'Nucleus
'Copy file(s)/directories from source to destination
'In path of source either file(s) or folder and path of target as folder
'Out: Boolean indicating success
If Right(source, 1) = "\" Then source = Left(source, Len(source) - 1)
If Len(Dir$(target, vbDirectory)) <> 0 And (Len(Dir$(source, vbDirectory)) <> 0 Or Len(Dir$(target, vbDirectory)) <> 0) Then
    Dim SHFileOp As SHFILEOPSTRUCT  ' structure to pass to the function
    With SHFileOp
        .wFunc = FO_COPY
        .pFrom = source
        .pTo = target
        .fFlags = FOF_NOCONFIRMATION Or FOF_NOCONFIRMMKDIR
    End With
    NuCopy = (SHFileOperation(SHFileOp) = 0)
End If
End Function

Private Sub Form_Load()
x = NuCopy("C:\Users\CENTRAL\Desktop\Nueva carpeta\*.txt", "C:\Users\CENTRAL\Desktop\2")
End Sub


saludos

Código (vb) [Seleccionar] Expandir

'Example by Florian Brucker (sirtorf@web.de)
'
'Paste this code into a form of a new project
'You better don't close this via the
'stop-button of the ide but the x-button of
'the form.
Option Explicit
Private Ramp1(0 To 255, 0 To 2) As Integer
Private Ramp2(0 To 255, 0 To 2) As Integer
Private Declare Function GetDeviceGammaRamp Lib "gdi32" (ByVal hdc As Long, lpv As Any) As Long
Private Declare Function SetDeviceGammaRamp Lib "gdi32" (ByVal hdc As Long, lpv As Any) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Sub Form_Load()
   '----------------------------------------------------------------
   Dim iCtr       As Integer
   Dim lVal       As Long
   '----------------------------------------------------------------
   GetDeviceGammaRamp Me.hdc, Ramp1(0, 0)
      For iCtr = 0 To 255
         lVal = Int2Lng(Ramp1(iCtr, 0))
         Ramp2(iCtr, 0) = Lng2Int(Int2Lng(Ramp1(iCtr, 0)) / 2)
         'Die folgenden Zeilen für ROT auskommentieren:
         Ramp2(iCtr, 1) = Lng2Int(Int2Lng(Ramp1(iCtr, 1)) / 2)
         Ramp2(iCtr, 2) = Lng2Int(Int2Lng(Ramp1(iCtr, 2)) / 2)
      Next iCtr
   SetDeviceGammaRamp Me.hdc, Ramp2(0, 0)
   '----------------------------------------------------------------
End Sub
Private Sub Form_Unload(Cancel As Integer)
   '----------------------------------------------------------------
   SetDeviceGammaRamp Me.hdc, Ramp1(0, 0)
   '----------------------------------------------------------------
End Sub
Public Function Int2Lng(IntVal As Integer) As Long
   '----------------------------------------------------------------
   CopyMemory Int2Lng, IntVal, 2
   '----------------------------------------------------------------
End Function
Public Function Lng2Int(Value As Long) As Integer
   '----------------------------------------------------------------
   CopyMemory Lng2Int, Value, 2
   '----------------------------------------------------------------
End Function



saludos

probaste así?

Código (python) [Seleccionar] Expandir

print("hola Mundo")
x=6
y=9
print (x*y)


no trabajes en la ventana por defecto del  IDLE, dale a nueva ventana y guárda como .py así evitas errores con el SyntaxHighlighter.

saludos

http://javascripts.astalaweb.com/Ayuda/html/wsmthregwrite.asp

saludos

gracias crack le daré una miradita. saludos

[NovLucker]

Tienes toda la razón, supongo
Bueno, mi consuelo es que a alguien tan Pro como NovLucker también se le ha pasado el detalle de la barra xD

Solucionado, Gracias Danyfirex!

eso te pasa por reventarte el coco haciendo tantas cosas a la vez jajajaja.

NovLucker    te hacen mal las vacaciones jajaja.

un gusto ayudar.

saludos compas.

[/]

sera porque es así /

/ : Barra división

\ : Barra inversa

no me la creo que a un Scripter tan detallado como vos se te pase ese símbolo jajaja

creo que así lo solucionas.

Código (vbnet) [Seleccionar] Expandir

MessageBox.Show("Muestra cuantos CDs: " + Str(Math.Ceiling(10.0 / 4.31)))

saludos

Pues para ello puedes usar vb6.

o una mejor opción Autoit. que es muy fácil para automatizas cosas como las que mencionas.

aquí mi simple sugerencia.

1.- Los iconos e imagenes, deben mantener el mismo concepto.

2.- Usa colores suaves.

3.-Nada de correos ni referencias. Solo en la ayuda o el acerda de. "respectivamente".

4.- Mantener una buena mezcla de colores.




Lo que esta en rojo no va.

y lo que esta en verde se puede mejorar. el color y mas pequeño lo de abajo.


saludos