Tady máš drobný vbscript který ti přejmenuje všechny mp3 ve složce ve které se nachází na něco0001... v pořadí ve kterém jsi je tam nakopíroval, přičemž "něco" si zadáš v objevivším se dialogovém okně. Ve složce následně vytvoří textový soubor se seznamem souboru. Kod ulož do textového souboru s názvem něco.vbs a spust poklikáním. Testováno ve w10 64b
Jen malé upozornění na závěr, soubory do složky musíš kopírovat, ne přesouvat. Při kopírování se změní "datum vytvoření", při přesunu nemá jak win poznat kdy byl přesunut. Takže zkopírovat a smáznout původní. "datum" který se zobrazuje v průzkumníku win zůstane nezměněn.
kód:
Option Explicit
Dim objFSO,objFolder,objFile
Dim strFolderPath,strBaseName,strNewFileName
Dim colFiles,arrFiles()
Dim i,j,strFileList
Dim outputFileName,outputFile
Set objFSO=CreateObject("Scripting.FileSystemObject")
If objFSO Is Nothing Then
WScript.Echo "Chyba pri vytvareni FileSystemObject."
WScript.Quit 1
End If
strFolderPath=objFSO.GetAbsolutePathName(".")
On Error Resume Next
Set objFolder=objFSO.GetFolder(strFolderPath)
If Err.Number<>0 Then
WScript.Echo "Chyba pri ziskavani slozky: "&Err.Description
WScript.Quit 1
End If
On Error GoTo 0
Set colFiles=objFolder.Files
strBaseName=InputBox("Zadej pevnou cast nazvu souboru:","Zadani nazvu souboru")
If strBaseName="" Then
WScript.Echo "Nebyl zadany zadny nazev. Skript se ukoncuje."
WScript.Quit 1
End If
ReDim arrFiles(colFiles.Count-1)
i=0
For Each objFile In colFiles
If LCase(objFSO.GetExtensionName(objFile.Name))="mp3" Then
Set arrFiles(i)=objFile
i=i+1
End If
Next
ReDim Preserve arrFiles(i-1)
For i=0 To UBound(arrFiles)-1
For j=i+1 To UBound(arrFiles)
If arrFiles(i).DateCreated>arrFiles(j).DateCreated Then
Set objFile=arrFiles(i)
Set arrFiles(i)=arrFiles(j)
Set arrFiles(j)=objFile
End If
Next
Next
strFileList=""
For i=0 To UBound(arrFiles)
Set objFile=arrFiles(i)
strNewFileName=strBaseName&Right("0000"& (i+1),4)&".mp3"
If LCase(objFile.Name)<>LCase(strNewFileName) Then
objFile.Name=strNewFileName
End If
strFileList=strFileList&strNewFileName&vbCrLf
Next
outputFileName=strFolderPath&"\seznam_souboru.txt"
On Error Resume Next
Set outputFile=objFSO.CreateTextFile(outputFileName,True)
If Err.Number<>0 Then
WScript.Echo "Chyba pri vytvareni textoveho souboru: "&Err.Description
WScript.Quit 1
End If
On Error GoTo 0
outputFile.Write strFileList
outputFile.Close
Set objFile=Nothing
Set objFolder=Nothing
Set objFSO=Nothing
Set outputFile=Nothing
WScript.Echo "Seznam souboru byl ulozen do " & outputFileName
Časy uváděny v GMT + 1 hodina Jdi na stránku Předchozí1, 2
Strana 2 z 2
Nemůžete odesílat nové téma do tohoto fóra. Nemůžete odpovídat na témata v tomto fóru. Nemůžete upravovat své příspěvky v tomto fóru. Nemůžete mazat své příspěvky v tomto fóru. Nemůžete hlasovat v tomto fóru. Nemůžete připojovat soubory k příspěvkům Můžete stahovat a prohlížet přiložené soubory
Informace na portálu Elektro bastlírny jsou prezentovány za účelem vzdělání čtenářů a rozšíření zájmu o elektroniku. Autoři článků na serveru neberou žádnou zodpovědnost za škody vzniklé těmito zapojeními. Rovněž neberou žádnou odpovědnost za případnou újmu na zdraví vzniklou úrazem elektrickým proudem. Autoři a správci těchto stránek nepřejímají záruku za správnost zveřejněných materiálů. Předkládané informace a zapojení jsou zveřejněny bez ohledu na případné patenty třetích osob. Nároky na odškodnění na základě změn, chyb nebo vynechání jsou zásadně vyloučeny. Všechny registrované nebo jiné obchodní známky zde použité jsou majetkem jejich vlastníků. Uvedením nejsou zpochybněna z toho vyplývající vlastnická práva. Použití konstrukcí v rozporu se zákonem je přísně zakázáno. Vzhledem k tomu, že původ předkládaných materiálů nelze žádným způsobem dohledat, nelze je použít pro komerční účely! Tento nekomerční server nemá z uvedených zapojení či konstrukcí žádný zisk. Nezodpovídáme za pravost předkládaných materiálů třetími osobami a jejich původ. V případě, že zjistíte porušení autorského práva či jiné nesrovnalosti, kontaktujte administrátory na diskuzním fóru EB.
FAQ
Hledat
Uživatelské skupiny
Profil
Soukromé zprávy
Přihlášení
