Random Dosya Kopyalama
-
Merhabalar ;
Random dosya kopyalamayı Nasıl yapabilirim ? Şöyleki ;Monthview.value dan kullanıcı bir tarih sececek ve Text1.text e bu tarih yazılacak. Ardından O tarih geldiginde Sistem içerisinde bulunan dosyaları random bir sekilde içeriye kopyalayacak.
Örnek :C:\Abc\ adlı folder icerisinde Dosya adları 1 diye başlayıp 1000 diye biten bellirli dosyalar var. Bu dosyalardan herhangi birisini Kullanıcının sectigi tarih aralıgında herhangi birisini kopyalamak istiyorum.
Private Sub Timer1_Timer()
If Date = Text1.Text Then
Name "c:\ABC\1\*.*" As "c:\ABC\*.MDB"
FileCopy "c:\ABC\*.MDB", "c:\DFE\*.MDB"
MsgBox " İşlem Tamam"
End If
End Sub
Bu Komutla o tarihte işlem tamam ama herhangi randomu yapamadım.Teşekkürler
-
eğer rastgele numara tutmaya çalışıyorsan şöyle yap:
mesele bit file list box ekle ve ismi dosyalar olsun
private sub islemler()
dosyalar.path = "c:\windows"
dosyalar.listindex = cint(rnd(dosyalar.listcount)*dosyalar.listcnt)
msgbox dosyalar.list(dosyalar.listindex)
end sub
-
CHaRMaNDeR verdiğide güzel bişey sayı olarak yapmak istersen şöyle
Private Sub Command1_Click()
Dim k As Integer
k = (1000 * Rnd) + 1
msgbox k
End Sub