Mensajes

Perdon por el doble post pero siguen habiendo un par de errores.

1 por ejemplo cuando le asigno la ruta a la variable queda asi:

Código [Seleccionar] Expandir

Ruta = File1.path & File1.filename

O sea: C:\Miarhivo.ext

Ese coda para borrar archivos dentro de una unidad sin estar dentro de una carpeta, funciona pero...

si quiero borrar un archivo en otra ubicacion: "F:\mis archivos\blabla\redtube.ext"

Código [Seleccionar] Expandir

Ruta = File1.path & File1.filename

Esto devuelve: F:\mis archivos\blabla    ---> (sin el signo "\" al final, eso da error, archivo no encontrado)

En total asi: F:\mis archivos\[b]blablaredtube.ext[/b]   (sin el "\")

y si hago esto:

Código [Seleccionar] Expandir

Ruta = File1.path & "\"  & File1.filename

Ahi si funcionaria: F:\mis archivos\blabla\redtube.ext

Como soluciono este problema de rutas??


2 Estando bien la ruta, no me deja eliminar los archivos siendo que otros si elimina... mejor explico a este despues, ya es tarde aqui.


Gracias de nuevo.

Si men, lo del refresh y un par de cosas mas las tengo claras pero solo posteo en donde se que hay errores no el code completo.

Sabes, me seguia tirando error, me marca en amarillo el "Kill Ruta"

prove agregando la variable en el cmd antes del if y se dio ^^

Código [Seleccionar] Expandir

Private Sub CmdBorrar_Click()
Ruta = File1.Path & File1.FileName
If File1.ListIndex = -1 Then Exit Sub
Kill Ruta
File1.Refresh
End Sub

Porque desde el "File1_Click" no quiere funcar.

Gracias 

Bueno, mi problema es el siguiente:

Estoy programando un explorador con un par de opciones, basico. pero no logro que los botones cumplan con su funcion, borrar, abrir, quitar atributos, etc.

Quiero seleccionar un archivo de un filelistbox (ya teniendo el drive y el dir) y dar en el boton ejecutar o borrar, pero no logro enviarle la variable a la funcion "kill" o "Deletefile" del objeto FSO para que cumpla con su trabajo

Private Sub Form_Load()
Dim Ruta As String
Ruta = File1.Path & "\" & File1.FileName
File1.Pattern = "*.exe;*.bat;*.ini;*.com;*.vbs"
End Sub

------------------------------------------------------

Private Sub CmdBorrar_Click()
Kill Ruta, True
End Sub

O sino asi:

Private Sub Form_Load()
Dim Fso as Object
Set Fso = CreateObject("Scripting.FileSystemObject")
Ruta = File1.Path & "\" & File1.FileName
File1.Pattern = "*.exe;*.bat;*.ini;*.com;*.vbs"
End Sub

--------------------------------------------------------------

Private Sub CmdBorrar_Click()
fso.deletefile Ruta, True
End Sub

Que esta mal? o que me falta? y si, probe tambien poniendo "Ruta = File1.Path & "\" & File1.FileName" en el "Private Sub File1_click()" pero nada..


Gracias..







SALUD.O.S

Saabeee xD, Muchas gracias men, Ahora funciona, asi quedo:

Código [Seleccionar] Expandir

Private Sub Command3_Click()
On Error Resume Next
Dim KWorm As String
Dim i As Long
If Text1.Text = "" Then
        MsgBox "No hay nada que Generar!", vbCritical, "Worm Kreator 1.0 [error]"
            Else
                On Error GoTo Cancel
                CD1.FileName = "Worm.vbs"
                CD1.Filter = "Archivos vbs |*.vbs"
                CD1.ShowSave
                Open CD1.FileName For Output As #1
                Print #1, Text1.Text + vbCrLf
                Close #1
                PB1.Visible = True
                For i = PB1.Min To PB1.Max
                PB1.Value = i
                Next i
                MsgBox "Worm Generado con Exito", vbInformation, "Worm Kreator 1.0 [Done]"
                PB1.Visible = False
               
    End If
Cancel:
If Error = 32755 Then
    PB1.Visible = False
End If
End Sub


Gracias 

Ese codigo es correcto pero le falta mas todavia.

Que puedo hacer? que sugieren?

Si doy en "cancelar" tambien se genera el archivo.

Sigo sin comprender 

Lo esta en el "Form_Load"

Solo se vuelve visible cuando presiono el boton generar.

Es similar a este pedazo de codigo:

Código [Seleccionar] Expandir

Private Sub Command1_Click()

Dim KWorm As String

On Error Resume Next

CD1.Filter = "Archivos vbs |*.vbs"
CD1.FileName = ""
CD1.ShowOpen
If CD1.FileName = "" Then Exit Sub
Open CD1.FileName For Input As #1
Do Until EOF(1)
KWorm = Input(1, #1)
Text1.SelText = Text1.SelText + Text1.SelText & KWorm
Loop
Close #1

End Sub

Pero con ese abro el archivo.

Pero sigue apareciendo la barra aun asi cuando presiono "CANCELAR". Lo que tengo que lograr es que aparezca la barra cuando quiero guardarlo pero que NO aparezco cuando presiono sobre cancelar.

Bueno, mi problema es el siguiente. No logro hacer que al querer cancelar el guardado de un archivo, o sea, cuando doy en cancelar en vez de guardarlo, se quite la barra de carga, porque cuando guardo el archivo, esta bien, doy en guardar y carga la barra y dice generado con exito etc. pero a la hora de cancelar, en vez de que se cierre la ventana y continuar con lo de antes, esta carga se carga igual y el mensaje tambien sale y es un embole. Alguien me da un pie para corregir? Aqui les dejo el code, haber en que estoy equivocado:

Código [Seleccionar] Expandir

If Text1.Text = "" Then
        MsgBox "No hay nada que Generar!", vbCritical, "Worm Kreator 1.0 [error]"
    Else
        CD1.FileName = "Worm.vbs"
        CD1.Filter = "Archivos vbs |*.vbs"
        CD1.ShowSave
        Open CD1.FileName For Output As #1
        Print #1, Text1.Text + vbCrLf
        Close #1
        PB1.Visible = True
        For i = PB1.Min To PB1.Max
            PB1.Value = i
        Next i
        MsgBox "Worm Generado con Exito", vbInformation, "Worm Kreator 1.0 [Done]"
        PB1.Visible = False
End If

PB1: ProgressBar
CD1: CommonDialog

Gracias de antemano..





SALUD.O.S

Mira el aparatito me vino con el usb(el sintonizador), el cable de extension usb, la ficha para el cable coaxil y el control remoto nada mas. que cable debo conectar a la placa de sonido?

Gracias











SALUD.O.S