first, ke Project - References
Tambahkan :
- Microsoft Scripting Runtime
- Windows Script Host Object Model
lalu coding untuk hapus filenya simple :
Dim fso As New Scripting.FileSystemObject
fso.DeleteFile "c:\test.txt"
selamat mencoba![]()
Hai semua warga AP yang terkasih...
Di Thread ini, saya berharap kita semua dapat berbagi ilmu mengenai pemrograman komputer, yah.. Supaya kita-kita bisa share, tanya-tanya, supaya kita ngerti.
Sebenarnya, saya ada pertanyaan sedikit nih, mengenai pemrograman menggunakan VisualBasic 6 alias VB6. Kawan-kawan semua ada yang tahu tidak? Bagaimana caranya menghapus file menggunakan VB?
Misalnya kita punya file namanya test.txt, dan kita ingin menghapusnya. Syntax apa yang digunakan? Kalau untuk mengcreatenya, saya sudah bisa.. Tapi menghapus masih bingung.. Hehe..(Bisa bikin ga bisa apus).
Semoga ada yang dapat membantu saya... Kawan-kawan yang lain juga boleh tanya seputar VB koq. Kalau saya ngerti, pasti saya bantu juga.![]()
Terima kasih banyak ya...
Semoga banyak reply di Thread ini, soalnya saya benar-benar ingin tahu jawaban dari permasalahan yang sedang saya hadapi ini. Makasih semua ya.. Tuhan Yesus Memberkati...![]()
Regard
Suandi
first, ke Project - References
Tambahkan :
- Microsoft Scripting Runtime
- Windows Script Host Object Model
lalu coding untuk hapus filenya simple :
Dim fso As New Scripting.FileSystemObject
fso.DeleteFile "c:\test.txt"
selamat mencoba![]()
In times of difficulties, don't ever say "God, I have a big problem" ...
but instead "Hey problem, I have a big God and everything will be all right!!!"
Sukses banget bro.. Makasih banyak yach..... Kalau cara supaya document word dapat kita baca menggunakan vb gimana? Misalnya aku punya 1 buah control textbox, dan 1 buah control command button. Aku ingin, anggap saja dhe misalnya aku punya file document word di c:\test.doc, bagaimana sih caranya kalau kita pencet command button itu, nanti tulisan yang ada di c:\test.doc itu muncul di textbox? Sebelumnya makasih banyakkkkk ya... GBU
Regard
Suandi
Alo??? Ada orang? Seseorang balas reply ini, plzzzzzz.
Itu si Maranatha kenapa tuh ?
Anyway untuk menjawab si suandi :
Reference yang lu harus pake masih sama
- Microsoft Scripting Runtime
- Windows Script Host Object Model
Anggap lu punya object textbox bernama Text1, codingnya seperti ini :
Dim fso As New Scripting.FileSystemObject
Dim fst As Scripting.TextStream
Dim var_txt As String
Set fst = fso.OpenTextFile("c:\test.txt")
var_txt = fst.ReadAll
Text1.Text = var_txt
Perlu diingat bahwa ini untuk membaca file text alias string. Kalau file lu adalah .doc, dia gak akan menampilkan sempurna selayaknya microsoft word. Jadi gak ada tuh italic, bold, underline, or fasilitas-fasilitas yang ada di microsoft word
In times of difficulties, don't ever say "God, I have a big problem" ...
but instead "Hey problem, I have a big God and everything will be all right!!!"
ga usah tambah reference juga bisa, langsung aja pake command KILL juga bisa krn method ini ada di library default VB yaitu VBA, misalnya hapus COMMAND.COM di C:\Originally Posted by Jack_12
KILL "C:\command.com"
kalo cuma utk baca file aja, bisa langsung pake keyword OPEN, ga usah tambah reference, misalnya:Originally Posted by suandi_bsi
OPEN "filename.ext" FOR INPUT ACCESS READ AS #1
#1 itu maksudnya handle filenya, km bisa ganti dengan sembarang angka, misalnya #99. Utk close file bisa dng statement CLOSE, misalnya:
CLOSE #1
kalo utk baca file MS Word yg formatnya .doc, ada dua cara, pertama pake OLE Automation, yg kedua pake Office Object Library. Kalo cara pertama, kagak usah tambah reference, kamu bisa pake control OLE Container di toolbox standard. Kalo mo pake Office Library, misalnya km tambahin reference ke Microsoft Office 11.0 Object Library kalo km pake Office 2003.
Kalo mo lebih jelasnya, googling aja, ato ubek2 di MSDN. Perlu diingat bhw akses ke Office Object Library performance agak lambat krn library (COM) itu adalah ActiveX EXE yg sifatnya out-of-process, ga seperti library ADODB yg cepat krn dia sifatnya in-process.
Saya mau tanya..
Tolong dijawab ya...
Saya ingn membuat suatu program interaksi manusia dengan komputer. yang saya maksud interaksi adalah dalam bentuk komunikasi.
mungkin blum bisa berkomunikasi dengan suara alias berbicara. tetapi dengan mengetik atau chating. jadi program saya tersebut dapat menjawab segala pertanyaan-pertanyaan yang diajukan oleh pengguna.
sampai saat ini saya menggunakan sistem persamaan (fungsi OR)dan menggunakan banyak elseif-nya... ya... dengan ilmu yang pas-pasan.. apa yg dapat saya buat.. karena itu saya berharap bantuan saudara sekalian..
hm.. salah seorang senior saya di kampus menganjurkan saya menggunakan sistem index..
ada yg berminat membantu saya??
agar program tersebut dapat sempurna dan berkapasitas kecil..
thx aLL..
GBU (may God Bless Us)
Maksudnya bikin chatbot? pakai AIML aja, itu udh jadi framework.Originally Posted by Masih_Kecil
Tambahan saja...Originally Posted by paulfaith
Untuk mengganti #1 (file handle) sebagai antisipasi error yg kadang2 bisa muncul, coba ganti program diatas dengan code dibawah ini.
Dim nNumFile As Long: nNumFile = FreeFile()
OPEN "filename.ext" FOR INPUT ACCESS READ AS #nNumFile
Untuk closenya
CLOSE #nNumFile
*wah Jack12 dan Paulfaith ternyata jago VB juga yah![]()
Tidak ada doa yang tidak dijawab oleh Tuhan,
namun seringkali yang tidak disadari jawaban Doa itu adalah TIDAK !
sorry nich...gaptek sich
mo nanya nich kopm aku ga isa masuk ke friendster...katanya ini web dah di-block...nah klo mo matiin block-nya gimana ya??
Kalau mengaksesnya dari kantor, coba tanyakan ke orang IT kantormu, apakah mereka memblok situs friendster (biasanya lewat server proxy), soalnya banyak kantor yang menerapkan aturan memblok situs-situs tertentu yang dianggap merugikan pemakaian resource (membebani bandwidth network) dan mengganggu konsentrasi kerja (staff tidak mengerjakan tugas kantor malah banyak mengakses internet).Originally Posted by ijing
Tidak ada doa yang tidak dijawab oleh Tuhan,
namun seringkali yang tidak disadari jawaban Doa itu adalah TIDAK !
aku pake komp rmh punya...
padahal dulu sebelum di format lg isa masuk ke webs itu tapi sekarang sama skali ga isa, mo denger lg lewat air hidup ato situs2 rohani aja ga isa ,nah...gimana cara matiin tuh block???
tanya nih gimana biar komp kita ga bisa di remote sama org lain...
g agak bingung ama maksud diremote org??
stau g, yg biasa remote.
kl di komp lu py 1 user aja (misalnya administrator). kl ada org lain remote pasti yg lain ga bisa login. kec kalo da di sett 2 user.
kl ga ada prog spt Radmin, tenang aja komp kamu jg ga bakalan bisa di remote. kl org lain mau remote komp mu, itu butuh grant dan password. kec komp mu ga ada password beda case lagi.
lagian remote komp itu ga akan pernah bisa jika beda LAN ataupun WAN. krn g biasa suka remote2an komp g dr sudirman, krn komp g aslinya ada dibintaro. dan klien g kebetulan py wanasik d... cm sayang blum coba buat maen CS
![]()
[FONT="Arial"][COLOR="Blue"]It's no I in the TEAM[/COLOR][/FONT]
evolution my processor :
PII 450 mhz, PIII 650 mhz (1997 - 2007) -> Pentium M (Dothan) (2005 - ...) -> AMD X2 3800+ (2007 - ...)
evolution my PSU :
(unknown) (1997 -2003) -> mentari, n merk abal2 lainnya -> HEC 400 W -> (oww I'm Waiting FSP saga coz blue strom II out of stock, mannnn...I failed again)
pusinkkkk nentuin Rig g slanjutnya![]()
be wise....
no signature for today..
Last edited by Yosia; 18th December 2007 at 04:28 PM.
Tidak ada doa yang tidak dijawab oleh Tuhan,
namun seringkali yang tidak disadari jawaban Doa itu adalah TIDAK !
Bookmarks