انشاء مجلد

[goldposition]

اريد كود لانشاء مجلد باسم خليه وبداخله مجلد اخر باسم خليه اخرى

[محمد أبوعبدالله]

اخي الكريم

تمت الاجابة عن سؤالك في موضوع سابق

فهل توجد مشكلة في الكود

            Dim fs, cf, strFolder
            strFolder = CurrentProject.Path & "\" & Me.ID.Value
            Set fs = CreateObject("Scripting.FileSystemObject")
            If fs.FolderExists(strFolder) = False Then
            Set cf = fs.CreateFolder(strFolder)
            If fs.FolderExists(strFolder) = True Then
            Else
               MsgBox "تحذير لم يتم انشاء مجلد المرفقات ", vbExclamation
            End If
            End If

تحياتي

[goldposition]

لا المقصود عمل فولدر باسم الاي دي وبداخله فولدر اخر باسم خليه اخرى لاكن دي عمل فولدر واحد

[محمد أبوعبدالله]

7 ساعات مضت, goldposition said:

لا المقصود عمل فولدر باسم الاي دي وبداخله فولدر اخر باسم خليه اخرى لاكن دي عمل فولدر واحد

ما اسم الخلية ؟

تحياتي

[goldposition]

حقل ال name

[محمد أبوعبدالله]

59 دقائق مضت, goldposition said:

حقل ال name

اخي الكريمدعنا نتفق اولاً على تغيير اسم الحقل name الى اي اسم اخرمثلاً txtname

واليك كود انشاء مجلد داخل مجلد

            Dim fs, cf, strFolder, strFolder1
            strFolder = CurrentProject.Path & "\" & Me.id.Value
            strFolder1 = CurrentProject.Path & "\" & Me.id.Value & "\" & Me.txtname.Value
            
            Set fs = CreateObject("Scripting.FileSystemObject")
            
            If fs.FolderExists(strFolder) = False Then
            Set cf = fs.CreateFolder(strFolder)
            End If
            
            If fs.FolderExists(strFolder1) = False Then
            Set cf = fs.CreateFolder(strFolder1)
            End If

تحياتي

[goldposition]

هذا هو المطلوب تحياتي ليك

[محمد أبوعبدالله]

2 دقائق مضت, goldposition said:

هذا هو المطلوب تحياتي ليك

بالتوفيق اخي الكريم

تحياتي