تغيير نام و آيكون فايل

[P.B.Lue]

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

[محمد فدوی]

برای تغییر نام یک فایل از FSO (http://support.microsoft.com/kb/186118) استفاده کن. اینم (http://www.vb6.us/tutorials/using-fso-file-system-object-vb6) ببین.
برای تغییر آیکن یک فایل هم اگه ++C بلدی اینو (http://msdn.microsoft.com/en-us/library/ms997538.aspx) بخون! خیلی طولانیه انصافا که بخوام معادل VB6 رو بگم! ولی اگه سوالی پیش اومد بپرس جواب میدم. :لبخندساده:
با لینکایی که بت دادم + یکم سرچ امیدوارم به خواستت برسی.
موفق باشی.

[P.B.Lue]

ممنون اما این قسمتی از پروژمه که باید با وي بي نوشته بشه
FSO هم هر کاری میکنه بجز Rename
تغییر آیکن با وی بی رو هم نمیدونم چطوره.

[محمد فدوی]

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

Dim fso As New FileSystemObject
fso.MoveFile "D:\OldName.txt", "D:\NewName.txt"


اگر کسی واست منبع VB6 پیدا نکرد واسه تغییر آیکون خودم میام معادل VB6 رو برات میذارم. :چشمک:

[P.B.Lue]

در مورد تغییر آیکون با وی بی کسی راهي مي‌دونه ؟

[AbbasVB]

سلام
یه برنامه دارم تو یه قسمتش میخوام آیکون فایل گرفته شده از کاربر رو عوض کنه همچنین نام فایل رو....
سلام
سوالتون خیلی گنگه فقط قسمت تغیير نامشو فهمیدم
چه فایلی رو از کاربر بگیره؟
آیکون رو چی کار کنه بهتر توضیح بده تا شاید تونستم کمکت کنم

[P.B.Lue]

سلام .میخوام برنامم این قابلیت رو داشته باشه یک فایل رو تغییر نام بده و آیکنش رو عوض کنه.

[setroyd]

Private Sub Form_Load()

Dim sSourceFile As String
Dim sDestinationFile As String

Set FSO = CreateObject("Scripting.FileSystemObject")
sSourceFile = "G:\000.ts"
sDestinationFile = "G:\001.ts"
FSO.MoveFile sSourceFile, sDestinationFile
Set FSO = Nothing
End Sub

تغییر نام .

[P.B.Lue]

تغییر آیکون چطور ؟خیلی مهمه...