< návrat zpět
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
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
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