منتديات رحيل لكل العرب - كود عرض صندوق حوار Open With

عرض صندوق حوار Open With

كود:



Dim x As Long

x = ****************l("rundll32.exe ****************l32.dll,OpenAs_RunDLL C:\******.log")

End Sub





--------------------------------------------------------------------------------





حساب عدد سطور ملف نصى

*كود برمجي*





--------------------------------------------------------------------------------







Open "c:\autoexec.bat" For Input As #1

Count:

n = n + 1

Line Input #1, x

If EOF(1) Then

Label1.Caption = n

Exit Sub

Else

GoTo Count:

End If

Close

End Sub