اطلاعیه

Collapse
No announcement yet.

MMC (سوال در مورد سرچ و حذف فولدر)

Collapse
X
 
  • فیلتر
  • زمان
  • Show
Clear All
new posts

    MMC (سوال در مورد سرچ و حذف فولدر)

    سلام دوستان خسته نباشید

    من با mega128 مموری کارتو را انداختم سوالم اینجاس ،طبق کد زیر میخوام اول اسم دایرکتوری رو از کاربر بخواد و پاک کنه ،ولی اگه بین فایلا نبود ارور بده ! مشکل اینجاس همش خط بعد else اجرا میشه ! :angry: ، ممنون اگه راهنمایی کنین :sad:

    کد:
    Input ">Enter Directory name:" , Dname
    Serch = ""
    Serch = Dir( "*.*")
    While Len(serch) > 0
    If Serch = Dname Then
    Rmdir Dname
    Print "Rmdir: ok"
    
    Else
    Print "enter valid name"
    Gosub Again
    End If
    Serch = Dir()
    Wend

    #2
    پاسخ : MMC (سوال در مورد سرچ و حذف فولدر)

    چرا کسی جواب نمیده ؟ :(

    دیدگاه


      #3
      پاسخ : MMC (سوال در مورد سرچ و حذف فولدر)

      شما 2 راه داری ، یا اینکه بیای اسمی که از ورودی گرفتی با دستور DIR سرچ کنی مثل این
      کد:
      Input ">Enter Directory name:" , Dname
      search = Dir(Dname)
      rmdir search
      یا با این برنامه شما باید بیای کل مموری رو بگردی تا به فایل مود نظر برسی
      کد:
      dim p as byte
      dim tr as bit
      tr=0
      Input ">Enter Directory name:" , Dname
      search = Dir("*.*")
      while len(search)>0
      	p1 = instr(search,dname)
      	if p>0 then
      		tr=1
      		rmdir search
      		print "OK"
      	end if
      	search=dir()
      wend
      if tr=0 then
      	print "not fount"
      end if
      دلا خو کن به تنهایی که از تنها بلا خیزد

      دیدگاه

      لطفا صبر کنید...
      X