ویژوال بیسیک _آموزش _سورس کد_دانلود

کار با فایل ها
curdir دستور تغیر نام پوشه
curdir دستور تغیر نام پوشه
chdir دستور تغیر فهرست جاری
chdrive دستور تغیر درایو جاری
mddir دستور ایجاد پوشه
e:\ در درایو class مثال ساخت پوشه
Chdrive("e:")
Chdir("\")
Mddir("class")
rmdir دستور حذف پوشه خالی

kill دستور حذف فایل
c:/dos/os2.txt مثال :حذف فایل
Kill("c:\dos\os2.txt")
dir دستور جستجوی فایل
جستجو شده و پیغام با جستجو به نمایش در می آید: readme.txt مثال:در برنامه زیر فایل
A=dir(readme.txt)
If a=" " then
Msgbox("no find file")
Else
Msgbox("find file")
End if
روی کاغذ می شود: txt باعث چاپ فایل های با پسوند command مثال در برنامه زیر فشردن 1
: command1_click در رویداد
a=dir("*.txt")
do while a<>""
printer.print a
a=dir()
loop
printer.enddoc