Spirosgr,
Ευχαριστώ πολύ για την άμεση απάντηση... αν και είχα φτάσει και εγώ.
Θα ήθελα την βοήθειά σου, αν μπορείς, και σε κάτι άλλο.....
Έχω λιπών μια φόρμα από την οποία δημιουργώ έναν φάκελο σε μια διεύθυνση
"c:\users\ID\Επίθετο\Όνομα" με τον παρακάτω κώδικα...
Private Sub Form_Load()
Dim fso
Dim fol As String
fol = "c:\users\" & ID & "_" & Επίθετο & " " & Όνομα & ""
Set fso = CreateObject("Scripting.FileSystemObject")
If Not (fso.FolderExists(fol)) Then
fso.CreateFolder (fol)
MsgBox "Ο φάκελος δημιουργήθηκε!"
End If
End Sub
Μέτα ανοίγω μια υποφόρμα από την οποία θέλω να ανοίγω έναν υποφάκελο με τίτλο έναν αριθμό "DateID" και την "ημερομηνία" μέσα στον κύριο φάκελο, με μορφή
"c:\users\ID\Επίθετο\Όνομα\DateID_Ημ ερομηνία" χρησιμοποιώντας τον παρακάτω κώδικα..
Private Sub Form_Load()
Dim fso
Dim fol As String
fol = "c:\users\" & ID & "_" & Επίθετο & " " & Όνομα & "\"& DateID &" _ " & Ημερομηνία & ""
Set fso = CreateObject("Scripting.FileSystemObject")
If Not (fso.FolderExists(fol)) Then
fso.CreateFolder (fol)
MsgBox "Ο Υποφάκελος δημιουργήθηκε!"
End If
End Sub
Ενώ όλα τρέχουν καλά (δημιουργείτε ο κύριος φάκελος, μετά δημιουργείτε και ο υποφάκελος εκεί που θέλω), στο όνομα του υποφακέλου ενώ εμφανίζετε το πρώτο μέλος του ονόματος του φακέλου "DateID" δεν εμφανίζετε το δεύτερο μέρος "Ημερομηνία"???
Δηλαδή φτάνω μέχρι το C:\user\362\Παππάς Κώστας\32_ και λείπει η ημερομηνία!!!
Δεν μπορώ να καταλάβω τι κάνω λάθος....
Βοήθειααα.....
