12-03-12, 19:35
|
Όνομα: Χρήστος Φ. Έκδοση λογισμικού Office: Ms-Office 2007 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 20-12-2010 Περιοχή: Θεσσαλονίκη
Μηνύματα: 498
| |
Δημιουργία Φακέλου με VBA
Καλησπέρα στην Κοινότητα.
Ζητώ την βοήθειά σας στο εξής:
Σε μια Φόρμα, βασισμένη σε Πίνακα, έχουμε το πεδίο ΕΠΩΝΥΜΟ.
Σ' ένα κουμπί, με το ΚΛΙΚ, θέλω να δημιουργώ τον φάκελο: C\Orders\ΕΠΩΝΥΜΟ
(1. δηλαδή θέλω να δημιουργώ φάκελο και υποφάκελο και 2. ο φάκελος ΕΠΩΝΥΜΟ να παίρνει την τρέχουσα τιμή του πεδίου ΕΠΩΝΥΜΟ)
Με το παρακάτω δημιουργώ τον φάκελο Orders αλλά ...ΟΧΙ τον υποφάκελο....
If Dir("C:\Orders", vbDirectory) = "" Then
MkDir ("C:\Orders")
Else
'do nothing ... the directory already exists
End If
|