طلب كود نسخ ملف PDf إلى فولدر آخر

[AhmedSaeed01]

السلام عليكم ورحمة الله وبركاته 

أرجو من حضراتكم تقديم المساعدة فى الأتى :

عندى هايبرلينك لملف PDf موجود فى فولدر، واللينك ده موجود فى textbox5، وعندى combobox2 موجود فيه قائمة لأسماء مطابقة لأسماء فولدرات مجمعين داخل فولدر اسمه data محتاج كود يوضع فى commandbutton1 بحيث ينسخ الملف اللى موقعه موجود فى textbox5 إلى الفولدر data وتحديدا فى الفولدر اللى اسمه يساوى الاسم اللى موجود فى combobox2

توضيح اضافى:

فولدر data يحتوى مثلا على 5 فولدرات أسمائهم وليكن من 1 إلى 5

وcombobox2 تحتوى على أسماء الفولدرات من 1 إلى 5

عايز الكود ينسخ الملف اللى موقعه مكتوب فى textbox5 ويحط النسخه دى فى الفولدر اللى انا حددته فى combobox2 وليكن مثلا رقم 2.

شكراً لحضراتكم. 

ده رابط موضوع مشابه لطلبى لو حد قدر يعدل عليه ليناسب اللى طلبته من حضراتكم فى حالة لو طلبى فيه صعوبة فى تنفيذه. 

لفتح الرابط رجاءً اضغط هنا

[أبوعيد]

وعليكم السلام

ارفق ملفك حتي نطبق عليه

 

تم تعديل نوفمبر 12, 2021 بواسطه أبوعيد

[عبدالفتاح في بي اكسيل]

جرب هذا  الشيء

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\PC WORLD\Desktop\FILES\" & Range("H10").Value & Format(Date, "mmdd")

لا حظ  يتم  التخزين بناء  على قيمة خلية  وتاريخ اليوم 

[AhmedSaeed01]

شكراً على المساعدة يا استاذ عبدالفتاح 

لكن من خلال الكود الظاهر ليس هذا المطلوب

لقد قمت بإرفاق ملف وبه كود يحتاج الى التعديل وتصحيح الخطأ اللى بيظهر

يجب اولا تغيير مسار الفولدرات ليعمل بشكل صحيح. وفى تيكست بوكس اسم الملف يجيب حذف المسار وترك اسم الملف.

تم توضيح المطلوب على الفورم ايضا.

شكرا لحضرتك.

الكود المستخدم فى الملف يستند فى طريقة عمله الى 3 اشياء

1- اسم الملف      2- المكان المتواجد فيه الملف        3 -المكان الذى تريد نسخ الملف إليه

اذا كانت هناك طريقة اسرع تقوم بنسخ الملف من خلال رايط الملف  الموجود فى Textbox2 الى فولدر اخر والمحدد فى ComboBox1 سيكون افضل.

تم تصحيح الخطأ فى الكود بإضافة ( \ ) فى نهاية مسار الفولدر المراد النسخ إليه .الموجود فى القائمة المنسدلة

المطلوب الان كود يستخرج اسم الملف من الرابط الموجود فى Textbox2 ويحذف باقى المسار مثل (/:D) او اى شيئ يسبق اسم الملف ويضع اسم الملف فى Textbox1

 

test.xlsm

تم تعديل نوفمبر 13, 2021 بواسطه AhmedSaeed01
تم تحيث الملف المرفق

[حسونة حسين]

وعليكم السلام ورحمة الله وبركاته 

جرب هذا التعديل اخى الكريم 

Private Sub CommandButton2_Click()
'Declare Variables
Dim FSO
Dim sFile As String
Dim sSFolder As String
Dim sDFolder As String

'This is Your File Name which you want to Copy
sFile = TextBox1.Text

'اكتب الموقع المتواجد فيه الملفات التى تريد نسخها
sSFolder = "D:\"

'Change to match the destination folder path
sDFolder = ComboBox1.Value

'Create Object
Set FSO = CreateObject("Scripting.FileSystemObject")

'Checking If File Is Located in the Source Folder
If Not FSO.FileExists(SFolder & sFile) Then
    MsgBox "Specified File Not Found", vbInformation, "Not Found"
    
'Copying If the Same File is Not Located in the Destination Folder
ElseIf Not FSO.FileExists(sDFolder & Dir(sFile)) Then
    FSO.CopyFile sFile, sDFolder, True
    MsgBox "Specified File Copied Successfully", vbInformation, "Done!"
Else
    MsgBox "Specified File Already Exists In The Destination Folder", vbExclamation, "File Already Exists"
End If
End Sub