• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: kopírování adresářů,vytvoření adresářů

Zaslal/a Novacek-Ivan 29.3.2014 21:22

Zdravím všechny přítomné,prosím všechny přítomné o radu jak skopírovat adresář který má v sobě několik složek (prázdných) a tento adresář přejmenovat názvem který je napsán v textovém poli.Zkoušel jsem i pana Googla ale bohužel mi nic nenašel (našel pouze kopírování souborů).
Přečetl jsem už snad všechny knihy,které jdou k dispozici na internetu ale bohužel jsem měl smůlu.
Jde to vůbec? Předem děkuji za radu (uživatel ofice 2007).

Zaslat odpověď >

---

Opičák(30.3.2014 10:29)#018568

Googlil jste málo
Sub CopyFolder()
Dim fso
Dim STARY As String, NOVY As String
STARY = "c:\dokumentyMT\testce"
NOVY = "c:\dokumentyMT\test2"
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(NOVY) Then
fso.CopyFolder STARY, NOVY
Else
MsgBox NOVY & " adresář existuje!", vbExclamation, "CHYBA NÁZVU"
End If
End Sub
citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse