02-03-16, 14:06
|
| Super Moderator Όνομα: ΓΙΩΡΓΟΣ Έκδοση λογισμικού Office: Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 14-01-2014
Μηνύματα: 234
| |
Γιώργο για βάλε τον κωδικά
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
|