<marquee behavior="alternate" direction="RIGHT" width="219">كار با فايل درVB6 </marquee>

چند تا دستور براي  كار با فايلها و اجراي برنامه ها در VB6

دستور Shell

از اين دستور جهت اجراي يك فايل يا يك رنامه از طريق منوي ران استفاده ميشه الگوي كامل دستور :

Function Shell(PathName, [WindowStyle As VbAppWinStyle = vbMinimizedFocus]) As Double
Member of VBA.Interaction
Runs an executable program
 

دستور  Kill

از اين دستور براي پاك كردن يك فايل استفاده ميشه  الگوي كار دستور در زير آمده :

Sub Kill(PathName)
Member of VBA.FileSystem
Deletes files from a disk
 

دستور FileCopy

اين دستور براي كپي كردن يك فايل به كار ميره الگوي استفاده از اين دستور در زير آمده :

Sub FileCopy(Source As String, Destination As String)
Member of VBA.FileSystem
Copies a file
 

* اكگوهاي استفاده از دستورات قيد شده همگي از بخش Object Browse خود VB  مستقيما كپي شده  جهت استفاده از اين بخش ميتونن از كليد F2  استفاده كنين

تشخيص وجود يا عدم وجود فايل

براي اينكه تشخيص بدين يك فايل وجود داره يا نه ميتونين از دستور Exist استفاده كنيد متنها قبل از استفاده از اين دستور بايد تابع مربوطه را به روش زير به VB معرفي كرد

اول  يك Module ايجاد كنيد كد زير را در Module  ايجاد شده كپي كنيد

Public Function exist(name As String) As Boolean exist = (Dir(name, vbNormal Or vbReadOnly Or vbHidden Or vbSystem Or vbArchive) <> "") End Function; </body> </html>

|+|