MS Excel

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

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ěď >

eLCHa(7.10.2016 11:40)#033005

Funkce Dir citovat

mikar(7.10.2016 11:53)#033007

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

Google je ošklivá věc..

Jinak FolderExistscitovat

mikar(7.10.2016 12:02)#033009

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 ?

citovat

mikar(7.10.2016 12:31)#033010

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)

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.