دستورات داس در vb [بایگانی]

parisa_vb

سه شنبه 23 بهمن 1386, 15:19 عصر

سلام..من یه کاربر جدیدم....میشه لطف کنید بگید دستور attrib که در داس استفاده می شد...و بقیه دستورات در داس چطور در ویژوال قابل استفاده است؟

مبین رنجبر

سه شنبه 23 بهمن 1386, 15:26 عصر

دستورات داس رو میتونید با استفاده از دستور Shell به 2 صورت به کار ببرید :

Shell "Attrib.exe +s +h C:\1.exe",vbHide

Shell "cmd.exe Attrib +s +h C:\1.exe",vbHide

__siavash__

سه شنبه 23 بهمن 1386, 16:11 عصر

یه سری هم به این جا بزن !
http://barnamenevis.org/forum/showthread.php?t=85308&highlight=%D8%A8%D9%86%D9%88%DB%8C%D8%B3

SaLaR2010

سه شنبه 23 بهمن 1386, 21:23 عصر

سلام به همه دوستان گل

یه سوال ؟

من اگه بخوام همین عمل attrib رو گسترش بدم باید چی کار کنم ؟

مثلا یه Browers بزارم تا کاربر فایل یا پوشه رو انتخاب کنه و بتونه مخفی بکنه

ولی ؟؟

اگه فایل رو مخفی کرد بعد دوباره اگه بخواد به حالت اولش دربیاردش چی کار کنه ؟ چون اونجوری با Browser که نمیشه فایل رو انتخاب کرد چون مخفی هستش !!!

میشه یه راهنمایی بکنید البته واضح باشه که زیاد vb بلد نیستم !

پیشاپیش سپاس

اوبالیت به بو

سه شنبه 23 بهمن 1386, 23:39 عصر

تو این تایپیک یه برنامه هستش.
http://barnamenevis.org/forum/showthread.php?t=71996 (http://barnamenevis.org/forum/showthread.php?t=71996)

SaLaR2010

چهارشنبه 24 بهمن 1386, 00:15 صبح

ممنون جناب obalitjoOon (http://barnamenevis.org/forum/member.php?u=47457) بابت لینک

دانلود کنم ببینم چی هست اگه خدای نکرده به مشکل برخوردم مزاحمتون میشم عزیز

SaLaR2010

چهارشنبه 24 بهمن 1386, 00:25 صبح

مثه اینکه بامشکل برخوردم !

این سورس خیلی ناقصه ! فقط توش دستور پینگ به خوبی کار میکرد وبس !!

مثلا دستور
cd\
dir
attrib
time

و........

اصلا توش کار نمیکرد !!!

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

امیدوارم گرفته باشید که دقیقا چی میخوام

پیشاپیش ممنون

__siavash__

چهارشنبه 24 بهمن 1386, 01:38 صبح

برای کار با صفات فایلها از تابع SetFileAttributes استفاده کن

Private Const FILE_ATTRIBUTE_ARCHIVE = &H20
Private Const FILE_ATTRIBUTE_COMPRESSED = &H800
Private Const FILE_ATTRIBUTE_DIRECTORY = &H10
Private Const FILE_ATTRIBUTEHIDDEN = &H2
Private Const FILE_ATTRIBUTE_NORMAL = &H80
Private Const FILE_ATTRIBUTE_READONLY = &H1
Private Const FILE_ATTRIBUTE_SYSTEM = &H4

Private Declare Function SetFileAttributes Lib "kernel32.dll" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long