Stránka 1 z 1
Hromadné vytvorenie zložiek
Napsal: 06 dub 2014 21:15
od cobr4in
Česť,
v jednej zložke mám viacero súborov, každý má originálny názov. Je možné nejak jednoducho vytvoriť rovnaký počet priečinkov s rovnomennými názvami, ako majú dané súbory?
Dík.
Re: Hromadné vytvorenie zložiek
Napsal: 07 dub 2014 07:31
od Uziv00
Určitě. Např. ve vbs.
Re: Hromadné vytvorenie zložiek
Napsal: 07 dub 2014 13:01
od cobr4in
VBS?
Re: Hromadné vytvorenie zložiek
Napsal: 07 dub 2014 14:01
od Oxxid
Visual Basic Script
Re: Hromadné vytvorenie zložiek
Napsal: 07 dub 2014 15:14
od Kim Spotcom
nebo v ruby, to je nejlepší jazyk... modul FileUtils
http://www.ruby-doc.org/stdlib-2.1.1/li ... Utils.html, je to otázka jednoho ho příkazu
řekl bych Dir.new('.').each{|entry|FileUtils.mkdir entry}
Re: Hromadné vytvorenie zložiek
Napsal: 07 dub 2014 18:29
od zeus
Na to staci i cyklus for
Re: Hromadné vytvorenie zložiek
Napsal: 08 dub 2014 21:20
od cobr4in
Hmm, díky za rady. Avšak, neexistuje nejaká možnosť, ako to urobiť priamo vo Wine?
Re: Hromadné vytvorenie zložiek
Napsal: 08 dub 2014 21:47
od zeus
Ne, naklikat to nelze.
Cyklus for je obsazen 'priamo vo Wine', v prikazovem radku napis for /? a odenteruj.
Re: Hromadné vytvorenie zložiek
Napsal: 08 dub 2014 22:44
od cobr4in
Stačil by samozrejme aj príkazový riadok, len som nechcel použiť nejaký iný program.
Čím presne mám nahradiť "?"?
Re: Hromadné vytvorenie zložiek
Napsal: 08 dub 2014 23:08
od MiliNess
Spusť notepad, zkopíruj do něho toto
@echo off
for %%a in (*.*) do (
md "%%~na" 2>nul
)
pause
ulož to třeba jako start.bat, zkopíruj do složky se soubory a spusť.
Pokud se mají soubory do složek i přesunout, pak to bude takto:
@echo off
for %%a in (*.*) do (
md "%%~na" 2>nul
move "%%a" "%%~na"
)
pause
Re: Hromadné vytvorenie zložiek
Napsal: 08 dub 2014 23:41
od Uziv00
Tak že to jsi ty...
Kód: Vybrat vše
'*************************************************
'* Skript prohledá adresář ve kterém je uložen *
'* pro každý nalezený soubor vytvoří složku *
'* se shodným názvem jako soubor. *
'* Odstraní .příponu souboru *
'* *
'* Vytvořeno pro PC-HELP *
'* *
'* (c)Etienn@Script v 1.0 *
'*************************************************
Option Explicit
Dim oFSO, owsh, path, oFolder, oFiles, i, strFolder
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set owsh = CreateObject("WScript.Shell")
' zjisteni cesty ke skriptu
path = WScript.ScriptFullName
path = Left(path, InStrRev(path, "\"))
' Objekt složky
Set oFolder = oFSO.GetFolder(owsh.ExpandEnvironmentStrings(path))
Set oFiles = oFolder.Files
' exist any files in folder
For Each i In oFiles ' všechny soubory
strFolder = i.Name
strFolder = Left(strFolder, InStrRev(strFolder, "."))
'WScript.echo strFolder
If Not oFSO.FolderExists(strFolder) Then
oFSO.CreateFolder strFolder
End If
Next
Set oFSO = Nothing
Set owsh = Nothing
Set oFolder = Nothing
Set oFiles = Nothing
Text zkopíruj do notepadu.
Nepoužívat žádné textové editory jako WORD a podobně!Soubor ulož pod nějakým inteligentním jménem. Příponu souboru změň z .txt na .vbs (např. pomocí totalcommanderu)
Nakopíruj jej do složky, kde chceš provést vytvoření složek podle názvů souborů.
Poklepáním jej spusť.
- Není ošetřena podmínka vytvoření složky podle sebe, takže budeš mít navíc složku s názvem skriptu - tu si smaž.
- Složky budou vytvořeny dle názvu souborů bez přípony.
- Skript nevytvoří složku, která již existuje
Re: Hromadné vytvorenie zložiek Vyřešeno
Napsal: 08 dub 2014 23:59
od cobr4in
Veľké DÍÍÍKY!!!
