پیدا کردن نام فایل

[alinoori 123]

  If Job.Success Then
  
  
       Dim out1 As OutputStream = File.OpenOutput(File.DirRootExternal&"/Android/data/alikhademi","ax1.jpg",False)
File.Copy2(Job.GetInputStream, out1)
  out1.Close

سلام

من از طریق این کد عکس(ax1.jpg)رو جایگذین با عکس فعلی که تو پوشه هست میکنم و تغییرش میدم

 

ولی مشکل  اینجاس که تو این پروژه همیشه عکس توی پوشه ax1.jpgنیست که من جایگذینش کنم یعنی متغیره.میتونه aks.pngباشه یا هر چیز دیگه ای

 

من میخوام :

 

اول بیاد توی این پوشه

File.DirRootExternal&"/Android/data/alikhademi

ببینه چه عکسی وجود داره .مثلا ali.jpg

و بعد بیاد کپی رو ایجوری انجام بده

If Job.Success Then
  
  
       Dim out1 As OutputStream = File.OpenOutput(File.DirRootExternal&"/Android/data/alikhademi","ali.jpg",False)
File.Copy2(Job.GetInputStream, out1)
  out1.Close 

[alinoori 123]

چطور دستور if بزارم تا وقتی 

این فولدر وجود نداشت تا اسم فایل های توش در بیاد .ارور بده 

در پایین اگه اینو بزارم

If File.Exists

همون بالا که 

lst0 = File.ListFiles(File.DirRootExternal&"/Android/data/alikhademi")

این رو انجام نمیده ارور خاص خودشو میده .

[alinoori 123]

داداشا کسی راهی بلد نیست

پروژم لنگ همینه

میخوام نام یه فایل رو تو یه فولدر در بیارم.

فکر کنم مجبورم 50تا if بذارم برای در اوردن اسم فایل درونش .

چون کلا تا 50حالت اسمش قابل تغییره.

[مهدی ایزدی 9,203]

درود

شما اینجوری بیا لیست فایل های موجود توی پوشه رو بگیر :

Dim lst0 As List
lst0 = File.ListFiles(File.DirRootExternal&"/Android/data/alikhademi")

For i = 0 To lst0.Size - 1
ListView1.AddSingleLine(lst0.Get(i))
Next

از اون جایی که فایل هات یک دونه بیشتر نیست میتونی توی list یا listview یا string یا هرچیزی که دوست داری

اسم اون فایل رو بگیری و بقیش رو دیگه خودت بهتر میدونی.

پس شد:

اول لیست تمام فایل ها رو میگیری

بعدش که لیست فایل ها رو گرفتی مشخص میشه که اسم فایلت چیه

اسمش رو جدا میکنی و عمل جایگذینی رو انجام میدی

 

موفق باشی