View Full Version : استخراج نام فایل از آدرس آن
XMEGAMAHDI
چهارشنبه 22 آبان 1387, 03:20 صبح
به نام خدا سلام دوستان سوال من این است که چگونه میتوان از آدرسی که از یک فایل مشخص به صورت یک رشته داریم نام فایل را استخراج بکنیم و این که چطور میتوان با زذن یک کلید در برنامه یک فایل با فرمت help را فراخوانی کرد و روی صفحه نشان داد(من help را درست کردم نمیدانم چطور باید آن را نمایش دهم) متشککرم
ALI TT
چهارشنبه 22 آبان 1387, 10:25 صبح
به نام خدا سلام دوستان سوال من این است که چگونه میتوان از آدرسی که از یک فایل مشخص به صورت یک رشته داریم نام فایل را استخراج بکنی
راه های زیادی وجود داره . ساده ترین راه :
Dim FileName As String = My.Computer.FileSystem.GetName("E:\DISK\ALI TT.exe")
این که چطور میتوان با زذن یک کلید در برنامه یک فایل با فرمت help را فراخوانی کرد و روی صفحه نشان داد(من help را درست کردم نمیدانم چطور باید آن را نمایش دهم) متشککرم
اگه فقط می خواهی باز شه :
Process.Start("آدرس فابل مربوط")
اگه هم خاستی که کاربر تا این فایل رو نبسته نرم افزارت قفل بمونه :
Process.Start("آدرس فابل مربوط").WaitForExit()
XMEGAMAHDI
چهارشنبه 22 آبان 1387, 13:23 عصر
به نام خدا سلام دوست عزیز از کمککت خیلی خیلی ممنون ومتشککرم امیدوارم در تمام صحنه های زندگی موفق و پیروز باشی.
Afshin160
چهارشنبه 22 آبان 1387, 14:35 عصر
با سلام ...
براي استخراج نام فايل :
PublicFunction fnamefile(ByVal str AsString) AsString
Dim st1, st2, str3, ttt AsString
Dim i, j AsInteger
j = (str).Length
str3 = StrReverse(str)
st2 = Mid((str3), 5, j - 4)
i = (InStr(1, st2, "\"))
st1 = Mid(st2, 1, i - 1)
ttt = StrReverse(st1)
Return (ttt)
EndFunction
وبراي بدست آوردن Folder و File ها واقع در يك مسير :
Dim Fb AsNew FolderBrowserDialog
Dim listbox1 AsNew ListBox
listbox1.Parent = Me()
listbox1.Show()
'---------------
Fb.ShowDialog()
If FileIO.FileSystem.DirectoryExists(Fb.SelectedPath) Then
ForEach s In FileIO.FileSystem.GetFiles(Fb.SelectedPath)
listbox1.Items.Add(s)
Next
EndIf
موفق باشيد .
راستي داشت يادم ميرفت از دستور Shell زير براي اجرا كردن برنامه هاي ديگر نيز ميوتني استفاده كني.
sepehr.net
پنج شنبه 23 آبان 1387, 10:51 صبح
سلام برای اینکه یک فایل help در برنامتون درست کنید به این تاپیک مراجعه کنین
http://barnamenevis.org/forum/showthread.php?t=130290
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.