15-03-16, 00:10
|
| Όνομα: Γιώργος Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2013 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 02-04-2013 Περιοχή: Κύπρος
Μηνύματα: 738
| |
Καλησπέρα Γιώργο,
Δοκίμασα τον κώδικα για απευθείας δηιουργία των αρχείων και δεν δουλεύει..
Public Function CreateFolderDemo()
Dim strDir As String
strDir = "c:\ProgramData\Dab\Part1\"
If Dir(strDir, vbDirectory) = "" Then
MkDir strDir
Else
MsgBox "Directory exists."
End If
End Function
|