AccessTr.neT
Şifre denetiminde değişken sürücü - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Şifre denetiminde değişken sürücü (/konu-sifre-denetiminde-degisken-surucu.html)

Sayfalar: 1 2


Şifre denetiminde değişken sürücü - herdogan - 30/01/2010

Arkdaşlar;
aşağıdaki kodlarda sürücü isimlerini değişken yapabilir miyiz.
Programımızın çalıştığı sürücüyü
AA = CurrentProject.Path
BB = Left(AA, 1)
bu kodlarla belirledik. bu sonucu aşağıdaki "F" diyerek sürücü adresi verdiğimiz yere monte edebilir miyiz?


Private Sub Form_Load()
Dim fso As Object
Dim drv As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set drv = fso.Drives.Item("F")
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 "f:\OGRENCITAKIP\lisans\ber.txt" For Output As #1
Write #1, Val(kes)
Close #1

k1 = Dir("f:\OGRENCITAKIP\lisans\num.txt")
If k1 = "" Then
Open "f:\OGRENCITAKIP\lisans\num.txt" For Output As #1
Write #1, Val(kes)
Close #1
Else


Cvp: Şifre denetiminde değişken sürücü - ayhan2122 - 30/01/2010

Bu şekilde monte edebilirsin.

Kod:
AA & ":\OGRENCITAKIP\lisans\num.txt"



Cvp: Şifre denetiminde değişken sürücü - herdogan - 31/01/2010

Teşekkürler ayhan2122
Bu bölümde sürücü harfi yerine uymadı

Dim fso As Object
Dim drv As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set drv = fso.Drives.Item("F")
orjserial = drv.SerialNumber


Cvp: Şifre denetiminde değişken sürücü - mehmetdemiral - 31/01/2010

AA & ":\OGRENCITAKIP\lisans\num.txt"
yerine
BB &":\OGRENCITAKIP\lisans\num.txt"
olarak kullanın. Sevgili dostum Ayhan'In sanırım klavyesi sürçmüşImg-grin)
AA = CurrentProject.Path: (Programın tam yolu)
BB = Left(AA, 1): (Sürücü harfi)

Kolay gelsin


Cvp: Şifre denetiminde değişken sürücü - herdogan - 31/01/2010

sayın demiral; ben de BB Yapmıştım. obölümler oldu. fakat süsücünün seri numarasını aldığım şu bölüm olmadı.

Dim fso As Object
Dim drv As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set drv = fso.Drives.Item("F")
orjserial = drv.SerialNumber


Cvp: Şifre denetiminde değişken sürücü - benremix - 27/02/2010

Sn Herdoğan sorun devam ediyor mu? Saygılar...