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
Şifre denetiminde değişken sürücü
Bu Konudaki Yorumlar |
Şifre denetiminde değişken sürücü - Yazar: herdogan - 30/01/2010, 20:22
Cvp: Şifre denetiminde değişken sürücü - Yazar: ayhan2122 - 30/01/2010, 21:34
Cvp: Şifre denetiminde değişken sürücü - Yazar: herdogan - 31/01/2010, 00:51
Cvp: Şifre denetiminde değişken sürücü - Yazar: mehmetdemiral - 31/01/2010, 01:04
Cvp: Şifre denetiminde değişken sürücü - Yazar: herdogan - 31/01/2010, 01:20
Cvp: Şifre denetiminde değişken sürücü - Yazar: benremix - 27/02/2010, 06:32
Cvp: Şifre denetiminde değişken sürücü - Yazar: herdogan - 27/02/2010, 08:47
Cvp: Şifre denetiminde değişken sürücü - Yazar: benremix - 27/02/2010, 10:36
|
Konuyu Okuyanlar: 1 Ziyaretçi