< návrat zpět

MS Excel

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

Zaslal/a mikar 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 eLCHa(7.10.2016 11:40)#033005
eLCHa
Funkce Dircitovat
mikar(7.10.2016 11:53)#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
xlnc(7.10.2016 11:57)#033008
avatar
Google je ošklivá věc..

Jinak FolderExistscitovat
mikar(7.10.2016 12:02)#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
mikar(7.10.2016 12:31)#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

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