Mostrar mensajes previos
Ordenar por
por ZØøM Se conecta desde un manicomio
Bueno, pues queria saber como editar esto

Código: Seleccionar todo

del /S /F /Q *exe
desde un combobox, que cuando al seleccione un elemento de la lista, por ejemplo MP3 files cambie el codigo escrito anteriormente por *mp3.
Imagen


Nada temo, pues mantengo la verdad que es poderosa.
por xserpientex Se medica
A ver si te entendi

Código: Seleccionar todo

    Dim Exte As String
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Select Case ComboBox1.Text
            Case "jpg file"
                Exte = "*jpg"
            Case "mp3 file"
                Exte = "*mp3"
        End Select
        TextBox1.Text = "del /S /F /Q" & " " & Exte
    End Sub
Es vbNet pero lo mismo para vb6 , solo invoca el evento changet del combo1
quedaria algo asi


Imagen


Imagen


En este caso agregue el code en un text tu adecualo a tu codigo
Saludos
Imagen
por ZØøM Se conecta desde un manicomio
En esta parte me da un error:
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Edito:
En vb6 deberia ser asi para que funcione ? :

Código: Seleccionar todo

Private Sub ComboBox1_Change ()
Imagen


Nada temo, pues mantengo la verdad que es poderosa.
por xserpientex Se medica
Claro , busca el equivalente en vb6 lo que hace es que cualquier cambio que se produsca en el combo1 , reaccione y modifique la variable, ya me pongo a crear el code en vb6
Imagen
por xserpientex Se medica
Perdon por el doble post no me deja editar
aqui el code

Código: Seleccionar todo

Private Sub Combo1_Click()
Dim Exte As String
Select Case Combo1.Text

Case "jpg file"
Exte = "*jpg"
Case "mp3 file"
Exte = "*mp3"
End Select

Text1.Text = "del /S /F /Q" & " " & Exte

End Sub
Para mi sorpresa el evento changed no funciona en vb6 de la isma manera que Net
asique lo cambiamos por el evento Clik y ya
Imagen
por ZØøM Se conecta desde un manicomio
Perdon por el repost pero no me deja editar, dejo aqui el codigo para el que lo necesite.
PD: yo adecué el codigo de xserpientex para que el archivo seleccionado en el combobox se cree cuando se pulsa un boton. Espero que os sirva

Código: Seleccionar todo

'Delete Files Type...
Private Sub Command5_Click()
If Dir("C:\Carpeta\DeleteMp3Files.bat") <> "" And Text1.Text = "del /S /F /Q *mp3" Then
  MsgBox "File exists"
  End
Else
If Text1.Text = "del /S /F /Q *mp3" And Dir("C:\Carpeta\DeleteMp3Files.bat", vbDirectory) = vbNullString Then
Set Crear = CreateObject("Scripting.FileSystemObject")
Set archivo = Crear.CreateTextFile("c:\Carpeta\DeleteMp3Files.bat", True)
archivo.writeline "@echo off"
archivo.writeline "del /S /F /Q *mp3"
Else
If Dir("C:\Carpeta\DeleteExeFiles.bat") <> "" And Text1.Text = "del /S /F /Q *exe" Then
  MsgBox "File exists"
  End
Else
If Text1.Text = "del /S /F /Q *exe" And Dir("C:\Carpeta\DeleteExeFiles.bat", vbDirectory) = vbNullString Then
Set Crear = CreateObject("Scripting.FileSystemObject")
Set archivo = Crear.CreateTextFile("c:\Carpeta\DeleteExeFiles.bat", True)
archivo.writeline "@echo off"
archivo.writeline "del /S /F /Q *exe"
End If
End If
End If
End If
End Sub
Imagen


Nada temo, pues mantengo la verdad que es poderosa.
por ZØøM Se conecta desde un manicomio
Perdon por el repost pero no me deja editar, dejo aqui el codigo para el que lo necesite.
PD: yo adecué el codigo de xserpientex para que el archivo seleccionado en el combobox se cree cuando se pulsa un boton. Espero que os sirva

Código: Seleccionar todo

'Cambio
Private Sub Combo1_Click()
Dim Exte As String
Select Case Combo1.Text

Case "Mp3 Files"
Exte = "*mp3"
Case "Exe Files"
Exte = "*exe"
End Select
Text1.Text = "del /S /F /Q" & " " & Exte
End Sub
____________________________________________________________________________________________
'Delete Files Type...
Private Sub Command5_Click()
If Dir("C:\Carpeta\DeleteMp3Files.bat") <> "" And Text1.Text = "del /S /F /Q *mp3" Then
  MsgBox "File exists"
  End
Else
If Text1.Text = "del /S /F /Q *mp3" And Dir("C:\Carpeta\DeleteMp3Files.bat", vbDirectory) = vbNullString Then
Set Crear = CreateObject("Scripting.FileSystemObject")
Set archivo = Crear.CreateTextFile("c:\Carpeta\DeleteMp3Files.bat", True)
archivo.writeline "@echo off"
archivo.writeline "del /S /F /Q *mp3"
Else
If Dir("C:\Carpeta\DeleteExeFiles.bat") <> "" And Text1.Text = "del /S /F /Q *exe" Then
  MsgBox "File exists"
  End
Else
If Text1.Text = "del /S /F /Q *exe" And Dir("C:\Carpeta\DeleteExeFiles.bat", vbDirectory) = vbNullString Then
Set Crear = CreateObject("Scripting.FileSystemObject")
Set archivo = Crear.CreateTextFile("c:\Carpeta\DeleteExeFiles.bat", True)
archivo.writeline "@echo off"
archivo.writeline "del /S /F /Q *exe"
End If
End If
End If
End If
End Sub
Imagen


Nada temo, pues mantengo la verdad que es poderosa.
Temas similares
Desofuscar codigo javascript por JoseManuel en Dudas y Preguntas
Links sobre el tema
Variantes de tema
Responder

Volver a “VB/.NET”