< návrat zpět

MS Excel


Téma: Ověření názvu adresáře rss

Zaslal/a 7.10.2016 11:32

Ahoj všem.
Potřebuj poradit. Mám makro,kterým vytvořím adresář pomoci MkDir (název adresáře zadávám z inputboxu)a následně do takto vytvořeného adresáře pomoci stejného makra ukládám soubor. Jde mi o jedno: Jak při vytváření adresáře zkontrolovat,jestli se již adresář se stejným názvem nevyskytuje? Proč? Protože pokud zadámm název adresáře, který se tam již vyskytuje, tak se makro zastaví a to není dobré :-)
děkuji všem za návod :-)

Zaslat odpověď >

icon #033005
eLCHa
Funkce Dircitovat
#033007
avatar
Díky. A kam to vložit ? :-) Když to moje makro vypadá takto :
Sub Makro1()
'
' Makro1 Makro
a = InputBox("zadej název")
adresar = "C:\Pokus1000\" & a
MkDir adresar
'
End Subcitovat
#033008
avatar
Google je ošklivá věc..

Jinak FolderExistscitovat
#033009
avatar
Ja když nevím , tak alespoň nedělám chytrého, aby jsem nevypadal jako hlupák a proto se raději zeptám, že ? 1citovat
#033010
avatar
Tak jsem to vyřešil. Pro případ, že by někdo potřeboval něco podobného:
Sub Makro1()
'
' Makro1 Makro
a = InputBox("zadej název")
adresar = "C:\Pokus1000\" & a

' kontrola zda li neexistuje stejný adresář

If Dir("C:\Pokus1000\" & a) = Empty Then
MsgBox ("Adresář již EXISTUJE! ")
a = InputBox("Zadej hezčí - jiný název! ")
adresar = "C:\Pokus1000\" & a

End If
' Vytvoří adresář
MkDir adresar

End Sub

Díky za spolupráci :-)citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09