Hromadné vytvorenie zložiek Vyřešeno

[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.

[Reklama]

[Uziv00]

Určitě. Např. ve vbs.

[cobr4in]

VBS?

[Oxxid]

Visual Basic Script

[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}

[zeus]

Na to staci i cyklus for

[cobr4in]

Hmm, díky za rady. Avšak, neexistuje nejaká možnosť, ako to urobiť priamo vo Wine?

[zeus]

Ne, naklikat to nelze.
Cyklus for je obsazen 'priamo vo Wine', v prikazovem radku napis for /? a odenteruj.

[cobr4in]

Stačil by samozrejme aj príkazový riadok, len som nechcel použiť nejaký iný program.
Čím presne mám nahradiť "?"?

[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

[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

[cobr4in]

Veľké DÍÍÍKY!!!