< 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 III

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

Aktivní diskuse

fce když a data

simplynever • 27.6. 12:48

fce když a data

Anonym • 27.6. 12:43

text > číslo=PRAVDA

Rejpal • 27.6. 12:01

fce když a data

simplynever • 27.6. 10:46

vlookup

simplynever • 27.6. 10:43

text > číslo=PRAVDA

pavelo • 27.6. 8:46

text > číslo=PRAVDA

Rejpal • 26.6. 20:29