Herhangi Bir Dosyayı Ram'e Yükleyik Kullanma
Tarih
10/08/2013 23:56
Konu Sahibi
efegfs
Yorumlar
4
Okunma
1579
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



Star 
Dim mem As New clsFileMapping
Dim retval As Long
If mem.OpenFile("Dosya Yolu", FileAllAccess, FileShareReadWrite, FileOpenAlways, FileAttributeAll) = True Then
If mem.MapFile("") = True Then
If mem.OpenView(FileMapAll) = True Then
Dim veri As Byte
veri = mem.ReadData(DefineByte) ' -> Byte Türünde 1 Byte Çeker, Otomatikman 1 Artar.
MsgBox "Dosya Çalıştı..."

'Dosya Kapanıyor...
mem.CloseView False ' True Yaparsanız Yapdığınız Değişiklikler Dosyaya Kaydolur.
mem.CloseMap
mem.CloseFile
Else
retval = -3
End If
Else
retval = -2
End If
retval = -1
End If
If retval < 0 Then
MsgBox "Hatalı Dosya Açılışı, " & retval
End If

Not: ClsFileMapping Alıntıdır...


Ek Dosyalar
.rar   clsFileMapping.rar (Dosya Boyutu: 6 KB / İndirme Sayısı: 12)
Cevapla


Yorumlarınızı Bekliyorum...
Cevapla


40 kişi bakmış 2 indiren 0 yorum arkadaşlar emeğe saygı ben bunu yapabilmek için ne kadar uğraştım...
Cevapla


benremix
Uzman
Kullanici Avatari
Uzman
R.... S....
4.432
17/05/2009
365
Ankara
Ofis 2010
Dün,21:16
Sn efegfs emek ve paylaşım için teşekkürler. Bu günler ilginin en az olduğu dönemdir. Bayram ve yaz tatili döneminde bu tür sitelere ilgi azalmaktadır. Bu nedenle gereken ilgiyi göremediniz. İlerleyen günlerde mutlaka yorum yazan olacaktır. İsterseniz siteye ilginin arttığı günlerde konuyu güncelleyiniz.

Saygılar...
Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi 


Cevapla


Açıklaman İçin Teşekkürler...
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi



Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya