vba da Path/File Access error

[airborne]

s.a.

yıllar önce yapmış olduğum bir projeyi başka bilgisayarlarda benden izinsiz kullanılmaması için lisan formu oluşturmuştum. Yıllar sonra harici hdd yi kurcalarken açtım projeyi ama

Open "c:\windows\system32\def.txt" For Output As #2 satırında yol hatası veriyor ve access tepkisiz kalıyor.

Sebebini bir türlü çözemedim.

Selametle..............

Option Compare Database
Private Sub Form_Load()
On Error Resume Next
Dim fso As Object
Dim drv As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set drv = fso.Drives.Item("C")
orjserial = drv.SerialNumber

uzun = Len(orjserial)
orjseri = orjserial * 4

kes = Mid(orjseri, uzun, 1) & Mid(orjseri, uzun - 1, 1) & Mid(orjseri, uzun - 2, 1) & Mid(orjseri, uzun - 3, 1) & Mid(orjseri, uzun - 4, 1)

Metin1.Value = kes

Open "c:\windows\system32\abc.txt" For Output As #1
Write #1, Val(kes)
Close #1

End Sub

Private Sub Komut0_Click()
If IsNull(Me.Metin3) Then
MsgBox "Proğram kodu boş...Lisans işlemleri yapılamaz.", vbExclamation, "Bilgi"
Exit Sub
End If
If Val(Metin1.Value) = Val((((Metin3.Value / 80) - 800) / 80)) Then


Open "c:\windows\system32\def.txt" For Output As #2
Write #2, Val(Metin3.Value)
Close #2

MsgBox "Tebrikler...Lisans numarası kabul edilmiştir." & Chr(13) & "Artık programı tüm özellikleri ile kullanabilirsiniz.", vbExclamation, "Lisans"
DoCmd.Quit


Else

MsgBox "Üzgünüz. Lisans numarası kabul edilmedi." & Chr(13) & "Lütfen bizimle irtibat kurunuz.", vbCritical, "Lisans"
DoCmd.Quit


End If


End Sub

 

[Zeki Gürsoy]

Sistem klasöründe dosya işlemleri yapabilmek için ek izinler olması gerekir. İşletim sisteminin izin verdiği başka bir konum kullanın...