ListBox1.Items.AddRange(parts.Cast(Of Object).ToArray) <----error como siempre

ListBox1.Items.AddRange(result.Cast(Of Object).ToArray)

ListItem currentIndex = ((DropDownList)sender).SelectedIndex;

int currentIndex = ((DropDownList)sender).SelectedIndex;

• MediaInfo
• MediaInfo Lite

• FFMPEG
• AviDemux

@Echo OFF & CHCP 1252 >NUL & Title FFMPEG Audio Demuxer Tool by Elektro
 
Set "Format="
Set "Profile="
 
PUSHD "%~dp0MediaInfo"
	For /F "Tokens=*" %%# in ('mediainfo.exe "%~1" "--Inform=Audio;%%CodecID/Hint%%"') Do (Set "Format=%%#")
 
	If "%FORMAT%" EQU "" (
		For /F "Tokens=*" %%# in ('mediainfo.exe "%~1" "--Inform=Audio;%%Format%%"') Do (Set "Format=%%#")
	)
 
	For /F "Tokens=*" %%# in ('mediainfo.exe "%~1" "--Inform=Audio;%%Format_Profile%%"') Do (Set "Profile=%%#")
POPD
 
If /I "%FORMAT% %Profile%" EQU "MPEG Audio Layer 1" (Set "Format=mp1")
If /I "%FORMAT% %Profile%" EQU "MPEG Audio Layer 2" (Set "Format=mp2")
If /I "%FORMAT% %Profile%" EQU "MPEG Audio Layer 3" (Set "Format=mp3")
If /I "%FORMAT% %Profile%" EQU "MPEG Audio Layer 4" (Set "Format=mp4")
If /I "%FORMAT%" EQU "AC-3"     (Set "Format=ac3")
If /I "%FORMAT%" EQU "Vorbis"   (Set "Format=ogg")
 
"%~dp0ffmpeg.exe" -loglevel info -i "%~1" -acodec copy -vn "%~n1.%FORMAT%"
 
If %ERRORLEVEL% EQU 0 (
	Echo+ 
	Echo: Audio extraction completed successfully.    | MORE | MORE
	Echo: Video: "%~1"                                | MORE
	Echo: Audio: "%~n1.%FORMAT%"                      | MORE
	Timeout /T 10
	Exit /B 0
) ELSE (
	Color C
	Echo+
	Echo: Audio extraction completed with errors.     | MORE | MORE
	Echo: Video: "%~1"                                | MORE
	Echo: Audio: "%~n1.%FORMAT%"                      | MORE
	Pause
	Exit /B 1
)
 

"FFMPEG.DemuxAudio.cmd" "C:\Ruta del archivo.webm"

// ListItem currentItem = ((DropDownList)sender).SelectedItem;
ListItem currentIndex = ((DropDownList)sender).SelectedIndex;
 
ViewState["idNombre"] = currentIndex;

Dim collection As IEnumerable(Of Integer) = Enumerable.Range(1, 99)

Dim parts As Integer = 4

Dim result As IEnumerable(Of IEnumerable(Of Integer)) =
    From index As Integer 
    In Enumerable.Range(0, CInt(Math.Ceiling(collection.Count() / parts)))
    Select collection.Skip(index * parts).Take(parts)

@Echo OFF
 
Set "folderName=Nueva Carpeta"
 
For /F "Tokens=* Delims=" %%# in ('Dir /B /S /AD "*"') Do (
	Echo %%~#
	Echo    [+] %%~#\%folderName%
	Echo+
	(MKDir "%%~#\%folderName%")2>NUL
)
 
Pause&Exit /B 0