• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Vytvoření složky, v zadane cestě

Zaslal/a Petr-K 4.9.2015 9:50

Dobrý den potýkam se s problémem, potřebuji vytvorit novou složku již v hotové složce c:/prace s tím že název nové složky bude pojmenovám bodle buňky A1 v sešitu xcel a pokud by již složka existovala vyskočilo by nějaké dialogové okno, předem díky za jakoukoli radu

Zaslat odpověď >

---

Devil(4.9.2015 10:23)#026638

Sub slozka()
Dim Cestado As String
Dim TestSlozky As String

Cestado = "c:/prace/"

TestSlozky = Dir(Cestado & Range("A1").Value, vbDirectory)
If Len(TestSlozky) > 0 Then
MsgBox "Tato složka již existuje!"
Else
MkDir (Cestado & Range("A1").Value)
End If
End Sub
citovat

elninoslov(4.9.2015 12:20)#026651

Vynechajte tú jednu premennú, v tomto prípade nieje potrebná ani pre čitateľnosť:
Sub CreateDir()
Dim Cesta As String
Cesta = "c:/prace/" & Worksheets("Hárok1").Cells(1, 1) & "\"
If Len(Dir(Cesta, vbDirectory)) = 0 Then MkDir (Cesta) Else MsgBox "Tato složka již existuje!"
End Sub

dá sa ísť ešte kratšie, ale to sa málokomu dobre číta:
Sub CreateDir()
If Len(Dir("c:/prace/" & Worksheets("Hárok1").Cells(1, 1) & "\", vbDirectory)) = 0 Then MkDir ("c:/prace/" & Worksheets("Hárok1").Cells(1, 1) & "\") Else MsgBox "Tato složka již existuje!"
End Subcitovat

eLCHa(4.9.2015 12:29)#026652

nebo prostě

On Error Resume Next
MkDir "V:\" & Range("A1").Value
If Not Err.Number = 0 Then MsgBox "Už je!"
On Error GoTo 0citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse