كسي نبود جواب بده
Printable View
كسي نبود جواب بده
كسي ميتونه كامان ديالوگ مولتي سلكت كنه
نقل قول:کد:Private Sub Command1_Click()
On Error GoTo cError
Dim i As Integer
Dim myFiles() As String
Dim myPath As String
With CommonDialog1
.MaxFileSize = 32000
.CancelError = True
.Filter = "All Files *.*/*.*"
.Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer Or cdlOFNHideReadOnly
.ShowOpen
myFiles = Split(.FileName, vbNullChar)
Select Case UBound(myFiles)
Case 0
List1.AddItem myFiles(0)
Case Is > 0
For i = 1 To UBound(myFiles)
myPath = myFiles(0) & IIf(Right(myFiles(0), 1) <> "\", "\", "") & myFiles(i)
List1.AddItem myPath
Next i
End Select
End With
Exit Sub
cError:
Beep
MsgBox Err.Description
End Sub
خيلي ممنون
جواب اون سوالو كسي بلد نيست
می تونی اون برنامه ای که عکس نشون میده رو آپلود کنی ، تا ببینم میشه کاری کرد یا نهنقل قول:
اين مثال خيلي ساده است و در حد ياد گرفتن خودم هست
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
این برنامه رو هم آپلودش کننقل قول:
همينه كه اپلود كردم يك مثال ميخوام شايد بعدن بدردم خورد
در ضمن مولتي سلكت رو ميتونيد يك جوري بنويسيد كه تو دو ليست نشون بده يكي نام و ديگري ادرس(من نتونستم)
و يك سوال ديكه تو ليست يكسري ادرس دارم ميخوام روي هر كدوم كه رفتم توي يك تكست فرمت اون فايل رو نشون بدهdat,mp3,bmp,......)
نقل قول:کد:Private Sub Command1_Click()
Dim Fso, FileName
Set Fso = CreateObject("Scripting.FileSystemObject")
On Error GoTo cError
List1.Clear
List2.Clear
Dim I As Integer
Dim myFiles() As String
Dim myPath As String
With CommonDialog1
.MaxFileSize = 32000
.CancelError = True
.Filter = "All Files *.*/*.*"
.Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer Or cdlOFNHideReadOnly
.ShowOpen
myFiles = Split(.FileName, vbNullChar)
Select Case UBound(myFiles)
Case 0
FileName = Fso.GetBaseName(myFiles(0))
List1.AddItem myFiles(0)
List2.AddItem FileName
Case Is > 0
For I = 1 To UBound(myFiles)
myPath = myFiles(0) & IIf(Right(myFiles(0), 1) <> "\", "\", "") & myFiles(I)
FileName = Fso.GetBaseName(myPath)
List1.AddItem myPath
List2.AddItem FileName
Next I
End Select
End With
Exit Sub
cError:
Beep
MsgBox Err.Description
End Sub