کپی شدن فایل به صورت hidden

[goldcom]

سلام
من نمیدونم چرا هر تاپیکی که میزنم پاک میشه
مثل اینکه آدم حتما باید به انجمن های خارجی بره تاپیک بزنه!!! :عصبانی:

میخوام برنامم که اجرا شد ، نام همه درایو های کامپیوتر رو بگیره و به صورت hidden فایلهایی رو که میخوام توشون کپی کنه

[pcdownload.bloghaa.com]

شی درایولیست برای گرفتن لیست درایو هاست.
تابع FileCopy برای کپی کردن فایل.
تابع SetAttr filepath, vbHidden هم برای مخفی کردن فایل.

هر جای نوشتن کد اشکال داشتی بگو تا ساپورتت کنیم.
---------------------------------------------------------------
موفق باشید.

[goldcom]

چند تا مثال هم میزنی؟
یه نمونه کد میخوام
ممنون از راهنماییت

[_behnam_]

سلام
من نمیدونم چرا هر تاپیکی که میزنم پاک میشه
مثل اینکه آدم حتما باید به انجمن های خارجی بره تاپیک بزنه!!! :عصبانی:

میخوام برنامم که اجرا شد ، نام همه درایو های کامپیوتر رو بگیره و به صورت hidden فایلهایی رو که میخوام توشون کپی کنه
بفر ما دوست عزیز . این سورس نام درایو ها رو نشون میده و حتی میگه درایو سیدی یا درایو فلش یا درایو معمولیه :چشمک:

file:///D:/DOCUME%7E1/_____B%7E1/LOCALS%7E1/Temp/moz-screenshot.pnghttp://184.154.37.226/_behnam_/drives.zip

[goldcom]

ممنون
اما چطوری hidden تو درایوها و فلش بره؟
مشکل اینجاست!

[_behnam_]

ممنون
اما چطوری hidden تو درایوها و فلش بره؟
مشکل اینجاست!
دوستمون که تابع رو بهت داد. hidden کردن کاری نداره
وقتی فایل رو کپی کردی همون فایل رو بلافاصله hidden کن
مثلا شما یک فایل تو مسیر زیر کپی کردی اینجوری باید hidden کنی
CopyFileA app.path & "\proje.exe" , "C:\proje.exe , 0
SetAttr "C:\proje.exe", vbHidden

[pcdownload.bloghaa.com]

یه فرم خالی درست کن و کد زیر رو توش کپی کن.
بعد هم اجرا ش کن.همین.


Dim a As TextBox
Dim b As DriveListBox
Dim WithEvents c As CommandButton
''''''''''''''''''''''''''''''''''''''''
' by Vahid.ws (=pcdownload.bloghaa.com)'
''''''''''''''''''''''''''''''''''''''''
Private Sub c_Click()
Dim Fname As String
Fname = Mid(a.Text, InStrRev(a.Text, "\"))
FileCopy a.Text, b.Drive + Fname
SetAttr b.Drive + Fname, vbHidden
End Sub
Private Sub Form_Load()
Me.Width = 6500: Me.Height = 3600
Set a = Controls.Add("vb.textbox", "TXT")
Set b = Controls.Add("vb.DriveListBox", "DLB")
Set c = Controls.Add("vb.CommandButton", "CMD")
a.Move 120, 600, 6015, 375: a.Visible = True: a.Text = "Enter File Path"
b.Move 120, 120, 3135: b.Visible = True: b.Drive = "D:\"
c.Move 4200, 1080, 1935, 495: c.Visible = True: c.Caption = "Hiden File Copy"
End Sub