ocx microsoft scrpting runtime

[parisa_vb]

این کامپوننت رو احتیاج دارم..ممنون

[parisa_vb]

MicroSoft Scripting RunTime...........جدا کسی این کامپوننت رو نداره؟؟؟؟؟؟؟؟

[vbhamed]

سلام
اين كامپوننت تو ليست كامپوننت ها نيست
از منوي Projects گزينه References اضافه كنيد
فايلش هم به اسم scrrun.dll در پوشه system32 هست
اگر نداشتيد بگيد تا براتون بفرستم

[parisa_vb]

سلام.این فایل رو دارم ولی چطور می تونم از این dll به عنوان کامپوننت استفاده کنم؟؟..وقتی این DLL رو می خوام تو کامپوننت ها add کنم...error میده که باید ریجستر باشه....لطفا راهنمایی کنید

[Danial_Yousefi]

این microsoft scrpting runtime که شما میگی در حقیقت یک سری تابع است که ویندوز انجام میده و ocx یا user control نیست که در کنار component ها قرار بگیره بعد از منوی project گزینه refrences رو بزن و تیک کنار microsoft scrpting runtime را بزن بعد بیا بیرون F2 رو بزن و توابع رو ببین یکی از این سری توابع (FSO (File system Operation هست
که کارایی مثل ساخت و حذف فولدر و اعلام وجود Exist و این هاست موفق باشین

[majjjj]

بعد از اضافه کردن این کتابخانه باید یک متغیر از این نوع ایجاد کنید و ازش استفاده کنید
این نمونه رو ببینید


Dim fs As New FileSystemObject
Dim int_number As Long
Dim int_drive As Long
Dim drive As String
Dim t_f As Boolean
For int_drive = 67 To 90
drive = Chr(int_drive) & ":"

If int_drive = 90 Then
Me.Caption = "áØÝÇ ÝáÔ ããæÑí ÑÇ æÇÑÏ ˜äíÏ"
Exit For
End If

int_number = GetDriveType(drive)

If int_number = 2 Then
On Error GoTo next1
t_f = fs.FileExists(drive & "\maliat.mdb")

If t_f = False Then
FileCopy App.Path & "\maliat.mdb", drive & "\maliat.mdb"
Call MsgBox(drive & "\" & " ÏÑÇíæ ÝáÔ ", vbInformation, " ˜í ÈÇä˜ Èå ÝáÔ ããæÑí ")
Exit For
End If
End If
Next
next1:

[vbhamed]

سلام.این فایل رو دارم ولی چطور می تونم از این dll به عنوان کامپوننت استفاده کنم؟؟..وقتی این DLL رو می خوام تو کامپوننت ها add کنم...error میده که باید ریجستر باشه....لطفا راهنمایی کنید

سلام
اين فايل از اون مدل كامپوننتها نيست
اگر مي خواي استفاده كني از همون منوي Project->References دكمه Browse رو بزن و اضافه كن و بعدش هم تيك كنارش رو بزن
البته معمولا خودش تو ليست هست
براي استفاده هم بايد يك متغير از اون نوع تعريف و استفاده كني به شكل زير



Dim Fso As New FileSystemObject.