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 ThenName "c:\ABC\1\ . " As "c:\ABC\ . MDB"FileCopy "c:\ABC\ . MDB", "c:\DFE\ . MDB" MsgBox " İşlem Tamam"End IfEnd SubBu Komutla o tarihte işlem tamam ama herhangi randomu yapamadım. Teşekkürler Run Time Error

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. listcnt)msgbox dosyalar. list end sub Düşünüyorum, o halde varım.

CHaRMaNDeR verdiğide güzel bişey sayı olarak yapmak istersen şylePrivate Sub Command1_Click Dim k As Integer k = (1000 Rnd) + 1 msgbox kEnd Sub 01