MS Excel

Téma: vytvoření adresáře

Zaslal/a bordov 4.5.2020 13:28

mám příkazový řádek
MkDir "C:\slozkaDomy\systemObsazen1" a potřebuji ho
zapsat tak, abych mohl mít proměnné

disk="C:"
slozka="slozkaDomy" a pokouším se o zápis, ale nefunguje mi to

MkDir ("" & disk & "\" & slozka & "\systemObsazen1")

a nevím jak to zapsat.
Pokud mi může někdo poradit, mnohokrát děkuji.

Zaslat odpověď >

elninoslov(4.5.2020 17:54)#046566

Function Create_Dir_Structure(D As String) As Boolean
Dim S() As String, i As Byte, Cesta As String

If Len(D) < 3 Then Exit Function
S = Split(D, "\")
If UBound(S) = 0 Then Exit Function

Cesta = S(0)
On Error GoTo KONIEC

For i = 1 To UBound(S)
Cesta = Cesta & "\" & S(i)
If Len(Dir(Cesta, vbDirectory)) = 0 Then MkDir Cesta
Next i

KONIEC:
Create_Dir_Structure = Err.Number = 0
End Function

Sub pokus()
Dim disk As String, slozka As String

disk = "C:"
slozka = "slozkaDomy"

If Not Create_Dir_Structure(disk & "\" & slozka & "\systemObsazen1") Then
MsgBox "Chyba. Adresár nebol vytvorený.", vbCritical
Exit Sub
End If
End Subcitovat

Uživatelské menu

Nejste přihlášen(a)

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.