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)

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.