أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
EM_ACC مجدى يونس-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة بحاجة الى كود ترحيل اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





كود لانشاء فولدر جديد

السلام عليكم ورحمة الله وبركاته الاخوه الافاضل بصراحه بحث كثيرا ولم اتوصل لشئ .......................................... ..



13-06-2020 01:06 صباحا
EM_ACC
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 84
المشاركات : 226
الجنس : ذكر
تاريخ الميلاد : 24-9-1981
الدعوات : 1
يتابعهم : 4
يتابعونه : 3
قوة السمعة : 338
 offline 

السلام عليكم ورحمة الله وبركاته
الاخوه الافاضل
بصراحه بحث كثيرا ولم اتوصل لشئ
....................................................
اريد كود يقوم بانشاء فولدر جديد
ثم يقوم بجعل هذا الفولدر شيرنج على الشبكة
.............................................................
تقبلو تحياتى
تم نقل المشاركة الى قسم الأسئلة والإجابات
توقيع :EM_ACC
إبراهيم أبوليله

13-06-2020 06:39 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif كود لانشاء فولدر جديد
وعليكم السلام أخي العزيز الغائب إبراهيم
جرب الكود التالي (وجدته بعد بجث طويل لكن لن أستطيع التجربة لأنني ليس لدي شبكة)
Sub Test()
    Dim errReturn, fso As Object, objWMI As Object, colShares As Object, objShare As Object, objNewShare As Object, sFolderName As String, strComputer As String
    Set fso = CreateObject("Scripting.FileSystemObject")
    sFolderName = "n:\ShareThis"
    If Not fso.FolderExists(sFolderName) Then fso.CreateFolder sFolderName
    strComputer = "."
    Set objWMI = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colShares = objWMI.ExecQuery("Select * from Win32_Share Where Name = 'MYSHARENAME'")
    For Each objShare In colShares
        objShare.Delete
    Next objShare
    Const FILE_SHARE = 0
    Const MAXIMUM_CONNECTIONS = 25
    strComputer = "."
    Set objWMI = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set objNewShare = objWMI.Get("Win32_Share")
    errReturn = objNewShare.Create(sFolderName, "MYSHARENAME", FILE_SHARE, MAXIMUM_CONNECTIONS, "Sample share created with Microsoft Scripting Runtime.")
    If errReturn = "0" Then
        MsgBox "Success", vbInformation
    Else
        MsgBox "Task Failed - Did You Forget To Run As Admin", vbExclamation
    End If
End Sub

13-06-2020 03:05 مساء
مشاهدة مشاركة منفردة [2]
EM_ACC
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 84
المشاركات : 226
الجنس : ذكر
تاريخ الميلاد : 24-9-1981
الدعوات : 1
يتابعهم : 4
يتابعونه : 3
قوة السمعة : 338
 offline 
look/images/icons/i1.gif كود لانشاء فولدر جديد
اخى الحبيب ياسر
مشكورا على الاهتمام
بارك الله فيك
بالفعل الكود يقوم انشاء الفولد ويضعه على الشير
ولكن لا يتم تفعيل العمل على الفولدر لانه يكون مقفول

yksWE_11111




Ho15q_2222

تقبل تحياتى
 
 

توقيع :EM_ACC
إبراهيم أبوليله

13-06-2020 03:27 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif كود لانشاء فولدر جديد
ليس لدي خبرة في التعامل مع الشبكات ..
ربما يفيدك أحد الأعضاء بفكرة أو بكود آخر 

13-06-2020 03:31 مساء
مشاهدة مشاركة منفردة [4]
EM_ACC
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 84
المشاركات : 226
الجنس : ذكر
تاريخ الميلاد : 24-9-1981
الدعوات : 1
يتابعهم : 4
يتابعونه : 3
قوة السمعة : 338
 offline 
look/images/icons/i1.gif كود لانشاء فولدر جديد
اخى ياسر
مشكورا على المحاوله
فى انتظار ردود اخرى
تقبل تحياتى
توقيع :EM_ACC
إبراهيم أبوليله

13-06-2020 04:17 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif كود لانشاء فولدر جديد
جرب الكود التالي .. وهو كود VBs c r i p t وليس VBA
Const FILE_SHARE = 0
Const MAXIMUM_CONNECTIONS = 25
Dim thismonth, thisday, thisyear, foldername, filesys, returnvalue
thismonth = Month(Date)
thisday = Day(Date)
thisyear = Year(Date)
If Len(thisday) = 1 Then thisday = "0" & thisday
foldername = thismonth & thisday & thisyear
Set filesys = CreateObject("Scripting.FileSystemObject")
filesys.CreateFolder "C:\" & foldername
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colShares = objWMIService.ExecQuery("Select * from Win32_Share Where Name = 'INGEST'")
For Each objShare In colShares
    objShare.Delete
Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objNewShare = objWMIService.Get("Win32_Share")
errReturn = objNewShare.Create("C:\" & foldername, "INGEST", FILE_SHARE, MAXIMUM_CONNECTIONS, "Notes to Exchange Migration Share.")
If errReturn = "0" Then
    wscript.echo "Success"
Else
    wscript.echo "Task Failed"
End If


ضع الكود في ملف نصي ثم احفظ الملف بامتداد vbs
وعند تشغيل الملف شغله كمسئول Run as Administrator
 

13-06-2020 08:15 مساء
مشاهدة مشاركة منفردة [6]
EM_ACC
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 84
المشاركات : 226
الجنس : ذكر
تاريخ الميلاد : 24-9-1981
الدعوات : 1
يتابعهم : 4
يتابعونه : 3
قوة السمعة : 338
 offline 
look/images/icons/i1.gif كود لانشاء فولدر جديد
اخى الحبيب ابو البراء
كل التحيه والتقدير لك
بارك الله فيك
ولكنى مازلت فى الحاجه الى كود
يعمل عن طريق VBA
تقبل تحياتى
توقيع :EM_ACC
إبراهيم أبوليله




الكلمات الدلالية
اريد ، لانشاء ، فولدر ، جديد ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 10:08 صباحا