Fa ذخيره تصويردرمكان دلخواه

[nazary2009]

کد ها با هم فرقی ندارن، منتها شما پرسیدید که چطور آدرس برنامه رو به رشته اضافه کنم که من اون کد رو یک تغییر کوچک دادم.

بر طبق کد شما باید فایل D:\Myfile.exe مخفی بشه، اگر این فایل وجود داره و مخفی نمیشه، مشکل از پلاگین هست، من پلاگین رو تست نکردم اما خیلی خیلی وقت پیش که برای یک پروژه تست کردم پلاگین جواب نداد (نمیدونم کدوم پلاگین بود) و من از دستورات CMD استفاده کردم.

ضمن اینکه در کد بالا، اگر قصد دارید عکس پس از کپی شدن مخفی بشه، باید مقدار متغیر $Path رو برابر متغیر $file2 قرار بدید.

باسلام آره من مي خوام عكس پس از كپي درمكاني كه كاربرتعيين مي كنه مخفي بشه (باید مقدار متغیر $Path رو برابر متغیر $file2 قرار بدی)ميشه بگيددقيقاكجاوآيا
بايد اين آدرس D:\Myfile.exeروپاك كنم

 

[nevercom]

این کد شما هست:

If (Address$ <> '') Then
  BrowseForFolder("Select the Folder:","")
  Dir$=CBK_OpenDir
  If (Dir$ <> '') Then
    file2$=Dir$+'\ARAX.jpg'
    SysCommand("CopyFile","Address$,file2$")
  End
End
Path$ = 'D:\Myfile.exe'
set$ = Path$ + '|Archive|Hidden'
PluginSet("MFilesAndFolders","set$")
PluginRun("MFilesAndFolders","Set_File_Attributes")
PluginGet("MFilesAndFolders","get$")
If (get$='0') Then
  Message("error!","")
Else
  Message("File attributes set.","")
End

اول در این قسمت از کد:

If (Address$ <> '') Then
  BrowseForFolder("Select the Folder:","")
  Dir$=CBK_OpenDir
  If (Dir$ <> '') Then
    file2$=Dir$+'\ARAX.jpg'
    SysCommand("CopyFile","Address$,file2$")
  End
End

از کاربر درخواست می کنید که یک پوشه رو انتخاب کنه، بعد فایل رو به مسیر جدید کپی می کنید، آدرس فایل جدید در متغیر $file2 ذخیره شده.

بعد از اون قصد دارید فایل جدید رو مخفی کنید، برای اینکار از پلاگین استفاده کردید، پس باید مسیر فایل جدید (که در متغیر $file2 ذخیره شده) رو به پلاگین بدید

کدتون باید به این شکل تغییر کنه:

If (Address$ <> '') Then
  BrowseForFolder("Select the Folder:","")
  Dir$=CBK_OpenDir
  If (Dir$ <> '') Then
    file2$=Dir$+'\ARAX.jpg'
    SysCommand("CopyFile","Address$,file2$")
  End
End
Path$ = file2$
set$ = Path$ + '|Archive|Hidden'
PluginSet("MFilesAndFolders","set$")
PluginRun("MFilesAndFolders","Set_File_Attributes")
PluginGet("MFilesAndFolders","get$")
If (get$='0') Then
  Message("error!","")
Else
  Message("File attributes set.","")
End

 

[nazary2009]

این کد شما هست:

If (Address$ <> '') Then
  BrowseForFolder("Select the Folder:","")
  Dir$=CBK_OpenDir
  If (Dir$ <> '') Then
    file2$=Dir$+'\ARAX.jpg'
    SysCommand("CopyFile","Address$,file2$")
  End
End
Path$ = 'D:\Myfile.exe'
set$ = Path$ + '|Archive|Hidden'
PluginSet("MFilesAndFolders","set$")
PluginRun("MFilesAndFolders","Set_File_Attributes")
PluginGet("MFilesAndFolders","get$")
If (get$='0') Then
  Message("error!","")
Else
  Message("File attributes set.","")
End

اول در این قسمت از کد:

If (Address$ <> '') Then
  BrowseForFolder("Select the Folder:","")
  Dir$=CBK_OpenDir
  If (Dir$ <> '') Then
    file2$=Dir$+'\ARAX.jpg'
    SysCommand("CopyFile","Address$,file2$")
  End
End

از کاربر درخواست می کنید که یک پوشه رو انتخاب کنه، بعد فایل رو به مسیر جدید کپی می کنید، آدرس فایل جدید در متغیر $file2 ذخیره شده.

بعد از اون قصد دارید فایل جدید رو مخفی کنید، برای اینکار از پلاگین استفاده کردید، پس باید مسیر فایل جدید (که در متغیر $file2 ذخیره شده) رو به پلاگین بدید

کدتون باید به این شکل تغییر کنه:

If (Address$ <> '') Then
  BrowseForFolder("Select the Folder:","")
  Dir$=CBK_OpenDir
  If (Dir$ <> '') Then
    file2$=Dir$+'\ARAX.jpg'
    SysCommand("CopyFile","Address$,file2$")
  End
End
Path$ = file2$
set$ = Path$ + '|Archive|Hidden'
PluginSet("MFilesAndFolders","set$")
PluginRun("MFilesAndFolders","Set_File_Attributes")
PluginGet("MFilesAndFolders","get$")
If (get$='0') Then
  Message("error!","")
Else
  Message("File attributes set.","")
End

سلام دوستان شرمنده من اين كدروهم گذاشتم توي پرو‍‍‍زه ولي بازم مخفي نشد ميشه پلاگين روبااين كدتست كنيد ببينيد پلاگين درسته ممنون

 

[nevercom]

از Cmd استفاده کنید:

File$ = 'C:\MyFile.exe'
Param$ = 'WAIT,HIDE /C ATTRIB +s +h "' + File$ + '"'
Run("cmd.exe","Param$")

برای توضیحات بیشتر در مورد دستور ATTRIB در cmd تایپ کنید:

ATTRIB /?