Hola, no se nada sobre las tecnologías de sony así que quizás no sirva de mucha ayuda pero...


1º - Si es un formato privado de Sony dudo mucho que encuentres NADA que no séa un reproductor de Sony para reproducirlo.


2º - Una posibilidad cómica:
      Puede ser que solo le hayan camuflado el nombre,
      Los archivos "tlt" podrías ser archivos ".ifo" y los ".00" podrian seer "vobs"


3º - Abre los archivos "tlt" en un editor de texto para obtener más información


4º - Usa el programa mediainfo para asegurarte de que los archivos "00" no son archivos multimedia conocidos pero con la extensión camuflada.
      Mediainfo es un programa que reconoce el tipo de archivo multimedia aunque se le cambie la extensión.
      Tanto para Ubuntu como para Win tienes una versión con interfaz gráfica: http://mediainfo.sourceforge.net/es/Download


EDITO: Deberías preguntar primero en el foro de soporte OFICIAL de la web de Sony, ese es el lugar adecuado. También puedes probar suerte aquí: http://www.sonyteam.net/foro/

Saludos.

si usas "2>1" se creará el archivo "1", para hacer referencia a una salida tienes que usar el operador "&" como en el ejemplo.

EDITO: Osea, con "1>NUL 2>&1" rediriges la misma salida (1 y 2) a "NUL".
el "1>NUL" no lo ves en mi code porque la salida por defecto es "1" así que con poner ">NUL" es suficiente.

http://ss64.com/nt/syntax-redirection.html

(Tema bloqueado hasta finalizar el tuto) Tutorial extendido de aprendizaje Batch
4.6 Operadores de desplazamiento lógico (o Redireccionamiento)

y...

Con poco ya me conformo pa salir de esta crisis

saludos

Casi.


1º - El comando del no afecta a carpetas, solamente a archivos. Usa el comando RD o RMDIR.

2º - Dentro del comando SCHTASKS tienes que escapar cada comillla doble que uses en "el comando" para que quede encerrado el argumento, es decir, en vez de escribir " debes escribir \", menos en la primera y ultima comilla doble, como en los ejemplos.

3º - La taréa del ejemplo se ejecuta automáticamente (la ejecuta Windows por tí) cada 30 minutos.

Saludos

Hola, pues la interpretación que le haría en Ruby sería esta:

If CheckboxN.Name[(/^#{Regexp.escape(caracter)}$/)] Then...

Busca el "caracter" como una palabra con inicio y final de línea, de esa manera si el checkbox se llama "1", con ese regex excluiría todos los demás checkboxes: "10","11","12",etc.. ¿No?

Me iría muy bien, pero lo he intentado y me da error:

Dim reg As New Regex(caracter) 
If reg.Match(CheckboxN.Name) Then

Value of type 'System.Text.RegularExpressions.Match' cannot be converted to 'Boolean'.

EDITO: Pensandolo bien, tengo que usar el string "checkbox" + (caracter) en el regex xD

un saludo

¿Eso es lo que hace tu última modificación de mi ejemplo, verdad?
Pues lo he copiado tál cual y no me funciona.

Mañana me lo miro con calma y sigo con el tema si aún no he podido resolverlo,

Aquí, y en stackoverf*** teneis que estar ya hartos de mí , pero estais ayudando a alguien a aprender cosas nuevas de VB.NET, métodos nuevos, objetos nuevos, y en resumen aprender a hacer las cosas bien.

Como me dijo todo un experto en .NET, solo hay que saber "mezclar" las cosas bien.

Un saludo

PD: Hdm, lo mismo digo, mañana me lo miro detalladamente, y gracias.


EDITO: Por cierto, quizás es una tontería pero... ¿sería posible usar un regexp en "caracter"?


no se hacerlo en VB pero sería otra posibilidad (más sencilla para mí)
saludos

No Kubox, he usado ahora mismo tu ejemplo y solo se muestra UN checkbox:



Te lo agradezco de todas formas, a ver si doy con el fallo..

Tienes razón, estoy un poco gilipo**** xD!

Lo he modificado correctamente (Eso creo) y por fin me funciona, muchisimas gracias

Pero los problemas sigueeeen!


Voy a poner un ejemplo visual:

se carga la app, pincho en el primer checkbox de todos, el "0", y cierro la app:




Vuelvo a abrir la app, y me aparece esto:




¿Serías tán amables de ayudarme a buscar el error en mi form?
(además, no se que coñ* he tocado para que el índice empieze con "checkbox0" y no con "checkbox1", ya me he mirado la variable "i" pero me ha parecido estar bien)

Imports System.Windows.Forms
Imports System.IO
 
Public Class Form1
    Dim filesystem As Object, ThisDir As Object
    Dim mCheck(0) As CheckBox 'matriz que contendrá los "X" CheckBox
 
    ' Start of Propertys
    Public Property userSelectedPlayerFilePath() As String
        Get
            Return playertextbox.Text
        End Get
        Set(value As String)
            playertextbox.Text = value
        End Set
    End Property
 
    Public Property userSelectedFolderPath() As String
        Get
            Return foldertextbox.Text
        End Get
        Set(value As String)
            foldertextbox.Text = value
        End Set
    End Property
 
    Public Sub GenerarPropiedades() 'metodo que generará la propiedad al producirse el cierre del formulario
        Dim CheckedN As String = Nothing 'la cadena que contendrá los CheckBoxes que estén Checkados
        For i As Int32 = 0 To mCheck.Length - 1 'recorro la matriz de los CheckBoxes
            If mCheck(i).Checked = True Then 'Si el CheckBox actual está checkado
                CheckedN &= i + 1 'Obtengo su indice y lo meto al string (si es Checkbox1 pues 1, si es chckbx2 pues 2) ...
            End If
        Next
        My.Settings.CuantosChecked = CheckedN 'Actualizo la propiedad
        My.Settings.Save() 'Guardo la propiedad
    End Sub
 
 
    Public Sub CargarPropiedad() 'método que comprobará que CheckBoxes fueron tildados la útlima vez
        Dim mCuantosChecked As Char() = My.Settings.CuantosChecked.ToCharArray 'Paso el String de la propiedad a una matriz
        'Simplemente hago esto para separar el String por indices (un caracter por indice)
        For Each caracter As Char In mCuantosChecked 'Recorro la matriz caracteres que contendrá los checboxes tildados
            For Each CheckboxN In mCheck 'Recorro la matriz de CheckBoxes, para comparar si está o no está tildado
                If CheckboxN.Name.Contains(caracter) Then
                    'Si el CheckBox actual contiene cualquier caracter de la propiedad
                    'que tiene los indices de los CheckBoxes tildados
                    CheckboxN.Checked = True 'Lo tildo
                End If
            Next
        Next
    End Sub
 
 
    ' update checkboxes
    Public Sub updatecheckboxes()
        ' delete the old checkboxes
        Panel1.Controls.Clear()
        ' create the new checkboxes
        Dim filesystem = CreateObject("Scripting.FileSystemObject")
        Dim ThisDir = filesystem.GetFolder(My.Settings.folderpath)
        Dim i As Int32 = 1
        'Dim mCheck() As CheckBox
        For Each folder In ThisDir.Subfolders
 
            'mCheck(i - 1) = New CheckBox()
            Array.Resize(mCheck, i)
            mCheck(i - 1) = New CheckBox()
            'MessageBox.Show("test")
            Me.Panel1.Controls.Add(mCheck(i - 1))
            With mCheck(i - 1)
                .Name = "Checkbox" & i - 1
                .Text = "Checkbox" & i - 1
                ' .Text = folder.Name
                .Location = New Point(10, i * 20)
            End With
            AddHandler mCheck(i - 1).CheckedChanged, AddressOf LlamadaCheckBox
            i = i + 1
        Next
        CargarPropiedad()
    End Sub
 
    ' Form close
    Public Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        GenerarPropiedades()
        'My.Settings.Save()
    End Sub
 
 
    ' Form load
    Public Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        playertextbox.Text = My.Settings.playerpath
        foldertextbox.Text = My.Settings.folderpath
        updatecheckboxes()
    End Sub
 
 
    ' Folder button
    Public Sub C1Button3_Click(sender As Object, e As EventArgs) Handles folderbutton.Click
        Dim folderselected As New System.Windows.Forms.FolderBrowserDialog
        Dim Resultado As DialogResult
        folderselected.RootFolder = Environment.SpecialFolder.Desktop
        Resultado = folderselected.ShowDialog
        If Resultado.ToString() = "OK" Then
            userSelectedFolderPath = folderselected.SelectedPath
            My.Settings.folderpath = folderselected.SelectedPath
            My.Settings.Save()
            updatecheckboxes()
        End If
    End Sub
 
 
    ' Player button
    Public Sub C1Button1_Click(sender As Object, e As EventArgs) Handles playerbutton.Click
        Dim playerselected As New OpenFileDialog()
        playerselected.InitialDirectory = Environ("programfiles")
        playerselected.Title = "Select your favorite music player"
        playerselected.Filter = "Music players|mpc.exe;mpc-hc.exe;mpc-hc64.exe;umplayer.exe;vlc.exe;winamp.exe;wmp.exe"
        PlayerDialog.FilterIndex = 1
        Dim selection As System.Windows.Forms.DialogResult = playerselected.ShowDialog()
        If selection = DialogResult.OK Then
            userSelectedPlayerFilePath = playerselected.FileName
            My.Settings.playerpath = playerselected.FileName
            My.Settings.Save()
        End If
    End Sub
 
 
    ' Play button
    Public Sub C1Button2_Click(sender As Object, e As EventArgs) Handles C1Button2.Click
        'Process.Start(userSelectedPlayerFilePath, ControlChars.Quote & Path.Combine(ThisDir.Path, checkedpath1) & ControlChars.Quote)
    End Sub
 
 
 
    ' función que se ejecuta cuando cualquier checkbox es clickado
    Public Sub LlamadaCheckBox(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim CheckboxN As CheckBox = CType(sender, CheckBox) 'a partir del sender creo el CheckBox (paso de objet a CheckBox para poder utilizar sus propiedades)
        'MsgBox(CheckboxN.Name)
 
    End Sub
 
End Class

Nada, gracias Hdm y Kubox, puse exactamente lo que me dijeron pero no me quiere funcionar esto:

Public Class Form1
    Dim filesystem As Object, ThisDir As Object
    Dim mCheck(0) As CheckBox 'matriz que contendrá los "X" CheckBox
...

    ' Form load
    Public Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        foldertextbox.Text = My.Settings.folderpath
        updatecheckboxes()
    End Sub

---

1er intento:
El messagebox solo aparece 1 vez, y en el panel no aparece ningún checkbox.

    ' update checkboxes
    Public Sub updatecheckboxes()
        Dim filesystem = CreateObject("Scripting.FileSystemObject")
        Dim ThisDir = filesystem.GetFolder(My.Settings.folderpath)
        Dim i As Int32 = 0
        For Each folder In ThisDir.Subfolders
            i = i + 1
            Array.Resize(mCheck, i)
            mCheck(i - 1) = New CheckBox()
            MessageBox.Show("test")
            Me.Panel1.Controls.Add(mCheck(i))
            With mCheck(i)
                .Name = "Checkbox" & i
                .Text = folder.Name
                .Location = New Point(10, i * 20)
            End With
            AddHandler mCheck(i).CheckedChanged, AddressOf LlamadaCheckBox
        Next
        CargarPropiedad()
    End Sub

---

2ndo intento:

El msgbox aparece todas las veces,
se cargan todos los checkboxes,

Pero no puedo cerrar el form, y como he "omitido" el "Array.resize" y lo que me dijo el compañero Hdm pues no creo que el índice del "mcheck" funcione para cargar/guardar las settings

Además he vuelto a las mismas de antes declarando el mcheck con un valor alto (999), así que esto no creo que me sirva para nada, solo es un ejemplo.

Public Class Form1
' el número aumentado a 999, sino no me funciona el segundo intento xD
    Dim mCheck(999) As CheckBox
...

    ' update checkboxes
    Public Sub updatecheckboxes()
        Dim filesystem = CreateObject("Scripting.FileSystemObject")
        Dim ThisDir = filesystem.GetFolder(My.Settings.folderpath)
        Dim i As Int32 = 0
        For Each folder In ThisDir.Subfolders
            i = i + 1
            mCheck(i) = New CheckBox()
            'Array.Resize(mCheck, i)
            MessageBox.Show("test")
            Me.Panel1.Controls.Add(mCheck(i))
            With mCheck(i)
                .Name = "Checkbox" & i
                .Text = folder.Name
                .Location = New Point(10, i * 20)
            End With
            AddHandler mCheck(i).CheckedChanged, AddressOf LlamadaCheckBox 'Asocio el evento CheckedChange del CheckBox actual a la función LlamadaCheckBox
        Next
        CargarPropiedad() 'Cargo las propiedades una vez dibujados los CheckBoxes
    End Sub

Nada, tu contesta cuando puedas y solamente si te apetece, sinó mandame a buscarme la vida por ahí xD

¿Me puedes decir si está bien el For?
Bueno, no está bien, porque al cargar el form no se muestra NINGUN checkbox

    ' update checkboxes
    Public Sub updatecheckboxes()
        ' delete the old checkboxes
        Panel1.Controls.Clear()
        ' create the new checkboxes
        Dim filesystem = CreateObject("Scripting.FileSystemObject")
        Dim ThisDir = filesystem.GetFolder(My.Settings.folderpath)
        Dim i As Int32 = 0
        For Each folder In ThisDir.Subfolders
            i += 1
            Array.Resize(mCheck, i)
            MessageBox.Show("test")
            mCheck(i) = New CheckBox()
            With mCheck(i)
                .Name = "Checkbox" & i
                .Text = folder.Name
                .Location = New Point(10, i * 20)
            End With
            AddHandler mCheck(i).CheckedChanged, AddressOf LlamadaCheckBox 'Asocio el evento CheckedChange del CheckBox actual a la función LlamadaCheckBox
            Panel1.Controls.Add(mCheck(i))
        Next
        CargarPropiedad() 'Cargo las propiedades una vez dibujados los CheckBoxes
    End Sub

Tengo declarado el mcheck así como me dijiste:

PD: El messagebox solo se muesta UNA vez :S
Muchas gracias por tu tiempo

Si habitualmente adjuntas archivos mejor olvídate de Hotmail (y sus problemas) y usa esa utilidad gratis tanto online como standalone sin casi-límite de tamaño ni restriccion de tipo de archivos:

https://www.zeta-uploader.com/es




Saludos.