::: در حال بارگیری لطفا صبر کنید :::Loading , please wait ...

انجمن کدستانMoisrex

MoisrexMoisrex.rozblog.com
زمان جاریtime : جمعه 04 تیر 1400 - 11:51 قبل از ظهر
نام کاربریusername : پسوردpassword : یاor عضویتregister | رمز عبور را فراموش کردمForgot your password?
شما در سایت ما ثبت نام نکرده اید و یا وارد اکانت کاربری خود نشده اید. از شما خواهشمند هستیم You are not log in to site. Please وارد شویدlogin یاor ثبت نام کنیدregister .
سورس گرفتن فایل های دسکتاپ و مشخص کردن نوعvb.net
تعداد بازدیدvisits : 236
ariaman5 آفلاین




ارسال هاAnswers : 1837
عضویتRegistration date : 5 /7 /1391
حمایت کردهThanks : 1008
حمایت شدهThanked : 338
سورس گرفتن فایل های دسکتاپ و مشخص کردن نوعvb.net

On Error Resume Next
ListBox1.Items.Clear()
ListBox2.Items.Clear()
fcount = 0
fcount2 = 0
fcount3 = 0
fcount = My.Computer.FileSystem.GetFiles(My.Computer.FileSystem.SpecialDirectories.Desktop).Count
For i = 0 To (fcount - 1)
ListBox1.Items.Insert(i, My.Computer.FileSystem.GetFiles(My.Computer.FileSystem.SpecialDirectories.Desktop)(i).ToString)
Next
For i = 1 To Len(TextBox3.Text)
r = r + 1
If Mid(TextBox3.Text, i, 1) = "\" Then
TextBox3.Text = TextBox3.Text.Remove(0, r)
End If
Next
TextBox2.Text = TextBox2.Text.Replace(TextBox3.Text, "public")
fcount2 = My.Computer.FileSystem.GetFiles(TextBox2.Text).Count
If My.Computer.FileSystem.DirectoryExists(TextBox2.Text) Then
For i = 0 To (fcount2 - 1)
ListBox1.Items.Insert(i, My.Computer.FileSystem.GetFiles(TextBox3.Text)(i).ToString)
Next
End If
fcount3 = My.Computer.FileSystem.GetDirectories(My.Computer.FileSystem.SpecialDirectories.Desktop).Count
For i = 0 To (fcount3 - 1)
ListBox1.Items.Insert(i, My.Computer.FileSystem.GetDirectories(My.Computer.FileSystem.SpecialDirectories.Desktop)(i).ToString)
Next
MsgBox(fcount + fcount2 + fcount3)
For i = 0 To ListBox1.Items.Count - 1
If My.Computer.FileSystem.FileExists(ListBox1.Items(i).ToString) = True Then
ListBox2.Items.Insert(i, "file")
ListBox3.Items.Insert(i, My.Computer.FileSystem.GetFileInfo(ListBox1.Items(i).ToString).Name)
Else
ListBox2.Items.Insert(i, "folder")
ListBox3.Items.Insert(i, My.Computer.FileSystem.GetDirectoryInfo(ListBox1.Items(i).ToString).Name)
End If
Next
دوشنبه 09 تیر 1393 - 00:22
وب کاربرUser's blog ارسال پیامsend p.m. نقل قولReply سپاس گزارمThanks گزارشReport
ariaman5 آفلاین




ارسال‌هاAsnwers : 1837
عضویتRegistration date : 5 /7 /1391
حمایت کردهthanks : 1008
حمایت شدهThanked : 338
پاسخAnswer 1 : سورس گرفتن فایل های دسکتاپ و مشخص کردن نوعvb.net
باید مقدار ها رو تو global اعلام کنید و اشیاء لازم رو بسازید تا برنامه ارور نده .

اینم به فرم لود اضافه کنید :


Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
TextBox1.Text = My.Computer.FileSystem.SpecialDirectories.Desktop
TextBox2.Text = My.Computer.FileSystem.SpecialDirectories.Desktop
TextBox3.Text = My.User.Name
End Sub
دوشنبه 09 تیر 1393 - 00:30
وب کاربرUser's blog ارسال پیامSend p.m. نقل قولReply سپاس گزارمThanks گزارشReport






برای ارسال پاسخ ابتدا باید لوگین یا ثبت نام کنید.


moisrex
درباره ماAbout us لینک های ماOur links کلمات کلیدیKeywords
انجمن تخصصی کدستان ، ساخته شده توسط فردی با نام مستعار Moisrex می باشد.This forum designed by a person who called Moisrex.

ایمیلE-mail : Moisrex @ Gmail.com
کدستان,انجمن کدستان,کدنویسی,انجمن پشتیبانی,فروم,رزبلاگ,آموزش کدنویسی,درخواست کد
تمامی حقوق این انجمن مربوط به همین انجمن می باشد | طراحی قالبCopyright (c) By Moisrex , All rights reserved | Desiger : Moisrex