.
tak částečně vyřešeno. Po zadání kódu:
Private Sub CommandButton1_Click()
If Len(Dir("Faktury", vbDirectory)) = 0 Then
MkDir "Faktury"
MsgBox "právě byl vytvořen"
Else: MsgBox "existuje"
End If
End Sub
pokud není vytvořen adresář "Faktury", tak ho vytvoří, pokud již existuje, tak napíše, že "existuje". Ještě bych chtěl vytvořit vnořený adresář "2011". Problém je, že když to takhle vytvořím, tak mi to při dalším uložení vytovří nový adresář "Faktury" ve složce "2011" a v ní opět složku "2011". Zkuste ještě někdo poradit, používám jednoduché kódy MkDir a ChDir, viz. příloha na www.pcman.cz/dokumenty/p.xls . Díky za případné náměty.citovat
Private Sub CommandButton1_Click()
If Len(Dir("Faktury", vbDirectory)) = 0 Then
MkDir "Faktury"
MsgBox "právě byl vytvořen"
Else: MsgBox "existuje"
End If
End Sub
pokud není vytvořen adresář "Faktury", tak ho vytvoří, pokud již existuje, tak napíše, že "existuje". Ještě bych chtěl vytvořit vnořený adresář "2011". Problém je, že když to takhle vytvořím, tak mi to při dalším uložení vytovří nový adresář "Faktury" ve složce "2011" a v ní opět složku "2011". Zkuste ještě někdo poradit, používám jednoduché kódy MkDir a ChDir, viz. příloha na www.pcman.cz/dokumenty/p.xls . Díky za případné náměty.citovat
. stačí zadat jednoduchý kód
RSS nejnovější články