< návrat zpět

MS Excel

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

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
avatar

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
elninoslov
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
icon eLCHa(4.9.2015 12:29)#026652
eLCHa
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)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje