[أسامة]

كود :

 ملفات المشروع من
Resources 
 
If My.Settings.File = False and File.Exists(path + ".dll) = False then
 File.WriteAllBytes(path + ".dll", My.Resources.File)
 My.Settings.file = True
 else if My.Settings.File = True and File.Exists(path + ".dll) = False Then
 File.WriteAllBytes(path + ".txt",, My.Resources.File)
 else
  File.WriteAllBytes(path + ".txt",, My.Resources.File)
 end if
 
 اذا كان الملف مع ملفات المشروع
 
 If File.Exists(path + ".dll) = False then
 File.WriteAllBytes(path + ".txt",, My.Resources.File)
 end if