کپی فایل به فلش

[javadamirpoor]

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

[isaac23]

سلام دوست عزیز

بین شماره درایو های فلش از 99 شروع میشه تا 122 یعنی هر چی درایو بین این شماره ها بود داریو فلش هست به یه حلقه For میایم این کار میکنم و اسم درایو رو میگیرم اگه بین این شماره ها بود بیاد فایل ها رو کپی کنه ...


For I = 99 To 122
If fso.DriveExists(Chr(I) + ":") And GetDriveType(Chr(I) + ":") = 2 Then

fso.CopyFile .....................؟

End If
Next






Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Dim fso As New FileSystemObject



در ضمن این دوتا رو هم توی قسمت جنرال اضافه کن

Fso: هم باید از قسمت ریفرنس تیک گزینه Microsoft Script Runtime , تیکش بزنی

میاد هر چی فلش به سیتم هست رو شناسایی می کنه و فایل ها رو کپی میکنه .

موفق باشی.

[javadamirpoor]

سلام دوست عزیز

بین شماره درایو های فلش از 99 شروع میشه تا 122 یعنی هر چی درایو بین این شماره ها بود داریو فلش هست به یه حلقه For میایم این کار میکنم و اسم درایو رو میگیرم اگه بین این شماره ها بود بیاد فایل ها رو کپی کنه ...

ممنون از راهنمایی خوبتون.فقط من چون آماتور هستم میشه لطف کنین یه توضیح مختصر راجع به fso و اینکه کدی که گزاشتین میاد چی رو چک میکنه بدین در ضمن تو خط fso.copy به جای علامت سوال چی باید نوشت.اگه لینک آموزشی فایلی معرفی کنید ممنون میشم.با تشکر

For I = 99 To 122
If fso.DriveExists(Chr(I) + ":") And GetDriveType(Chr(I) + ":") = 2 Then

fso.CopyFile .....................؟

End If
Next






Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Dim fso As New FileSystemObject



در ضمن این دوتا رو هم توی قسمت جنرال اضافه کن

Fso: هم باید از قسمت ریفرنس تیک گزینه Microsoft Script Runtime , تیکش بزنی

میاد هر چی فلش به سیتم هست رو شناسایی می کنه و فایل ها رو کپی میکنه .

موفق باشی.
ممنون از راهنمایی شما.فقط من آماتور هستم.ممنون میشم یه توضیح مختصر راجع به fso و کدی که گزاشتین بدید یا لینک یا فایل آموزشی معرفی کنید.با تشکر

[isaac23]

http://www.vb6.us/tutorials/using-fso-file-system-object-vb6

[javadamirpoor]

http://www.vb6.us/tutorials/using-fso-file-system-object-vb6

اگه اشتباه نکنم تو این مقاله گفته که fso مخصوص فایلهای تکست هست.آیا این درسته؟یعنی نمیشه با فایلهای فیلم و مولتی مدیا کار کرد؟چون من بیشتر فایلهای ویدئویی مد نظرمه

[javadamirpoor]

Private Sub Command1_Click()
Dim object As New Scripting.FileSystemObject
object.CreateFolder "d:\", "g:\test"
End Sub
من این کد رو نوشتم تا فولدر تست رو از درایو G به درایو D کپی کنم.مشکلش چیه که خطا میده.درستش چیه؟ممنون

[isaac23]

اگه به کدت توجه کنی CreateFolder متوجه میشی که اشتباه زدی میاد یه پوشه میسازه از دستور Move آستفاده کن.

این دستور میاده یه فایل از محل اجرای نرم افزار به درایو سی انتقال میشه .
fso.MoveFile App.Path & "\22.exe", "c:\"

[isaac23]

اگه اشتباه نکنم تو این مقاله گفته که fso مخصوص فایلهای تکست هست.آیا این درسته؟یعنی نمیشه با فایلهای فیلم و مولتی مدیا کار کرد؟چون من بیشتر فایلهای ویدئویی مد نظرمه


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