Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
16/04/2012 10:40
Konu Sahibi
accessman
Yorumlar
3
Okunma
1531
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

accessman

Aktif Üye
Kullanici Avatari
Aktif Üye
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Test()
    Shell "cmd /C" & "ping www.msdn.com"
End Sub
Sub Test2()
    Shell "cmd /C" & "ping 207.46.130.108"
End Sub
Sub Test3()
    Shell "command.com /c ping www.msdn.com", 1
End Sub
Sub Test4()
    Shell "command.com /c ping 207.46.130.108", 1
End Sub
Private Sub CommandButton1_Click()
    Shell "command.com /c ping " & TextBox1.Text, 1
End Sub


@benbendedeilem
Cevapla

Yandemir

Only Office 2003
Kullanici Avatari
Aktif Üye
M.... Y....
1.432
26/08/2009
482
Tekirdağ
Ofis 2003
25/08/2017,00:10
bu konu hakkında ek olarak şunuda belirtmek gerekli

Visual Basic Code
Sub Test()
 Shell "cmd /C" & "ping www.msdn.com"
End Sub

kodunu

Visual Basic Code
Sub Test()
 Shell "cmd /C" & "ping www.msdn.com > d:\testnetice.txt"
End Sub

şeklinde yaparsanız d:\testnetice.txt şeklinde bir text dosyasına kayıt atar. yok ise içeriğine bakmadan siler ve dosyayı bu isimle yaratır.

Visual Basic Code
Sub Test()
 Shell "cmd /C" & "ping www.msdn.com >> d:\testnetice.txt"
End Sub

şeklinde kullanırsanız eski dosyanın içine ilave eder eski bilgileri silmez. yok ise dosyayı yaratır.


Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)

+rep Yollar biter Access bitmez. +rep
Cevapla

benremix

Uzman
Kullanici Avatari
Uzman
R.... S....
4.433
17/05/2009
365
Ankara
Ofis 2010
23/09/2017,05:31
Verilen bilgiler için teşekkürler.

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

DUAYEN

Aktif Üye
Kullanici Avatari
Aktif Üye
S.... A....
1.026
13/08/2010
279
Yozgat
Ofis 2007
16/03/2017,17:22
Teşşekürler paylaşım için.


Bizim için zor diye bir şey yoktur, imkansızsa zaman alır...
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.