السلام عليكم ..... ممكن تساعدوني بكود ينسخ اي exe على كل ال desktop يعني اي سطح مكتب

العفو ارجو المساعدة

استخدم التالي :

  FileCopy  source ,destination

source : ملف المصدر مع المسار

destination:ملف الهدف مع المسار

يبقى عليك تعرف مسار سطح المكتب ولك عن طريق الدالة:

Private Function getPathToDesktop() As String
    Dim WSHShell As Object
    Set WSHShell = CreateObject("WScript.Shell")
    If (Not WSHShell Is Nothing) Then
        getPathToDesktop = WSHShell.SpecialFolders("Desktop")
    End If
    Set WSHShell = Nothing
End Function