Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
04/04/2012 16:24
Konu Sahibi
accessman
Yorumlar
4
Okunma
1110
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
Çözüldü 
iyi günler
MyFolder = BrowseFolder("Klasör seçin ... ")
ile klasör seçiyoruz ya
ağ konumu olarak eklediğimiz

Kod:
ftp://192.168.2.6 

gibi adreslerde olan klasörleri nasıl görüp seçebiliriz


@benbendedeilem
Cevapla

accessman

Aktif Üye
Kullanici Avatari
Aktif Üye
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 
şöyle bir komut varmış ama nasıl kullanılacak

ShellExecute(0, nil, 'http://www.programlama.com', nil, nil, SW_SHOWDEFAULT);

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Compare Database
Option Explicit

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Public Function Test()
On Error GoTo Err_Test

'Open file
ShellExecute 0, "Open", "file:///G:\Bulletin Board\UP Billing Flags\UP 1.2 - Health and Safety Plan.doc", "", "", 1

'Print file
ShellExecute 0, "Print", "file:///G:\Bulletin Board\UP Billing Flags\UP 1.2 - Health and Safety Plan.doc", "", "", 0

Exit_Test:
Exit Function
Err_Test:
MsgBox Err.Number & " - " & Err.Description
Resume Exit_Test

End Function 


@benbendedeilem
Cevapla

accessman

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

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
Dim appWd As Word.Application
Dim wdDoc As Word.Document

Set appWd = New Word.Application
appWd.Visible = True
Set wdDoc = appWd.Documents.Open("G:\Bulletin Board\UP Billing Flags\UP 1.2 - Health and Safety Plan.doc")
wdDoc.Bookmarks("WO").Select
wdDoc.ActiveWindow.Selection = Me.txtWorkOrderID
wdDoc.Save
wdDoc.Close
appWd.Quit
Set wdDoc = Nothing
Set appWd = Nothing


@benbendedeilem
Cevapla

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.811
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,16:16
Çözüldü 
Bilgisayarınıza telefondaki flash belleği gösteren "G" adında Ağ sürücüsü eklerseniz bu kodu kullanabilirsiniz.

Verdiğiniz kodlar, (örnek olarak) Veritabanı Yedekleme ve Bakım Uygulaması V3 linkindeki uygulamadaki "basOpenFile" modülündeki kodların benzeri. yedeklemeayarı formundaki "AdresBul" butonundaki kodda kullanılışı var.


Cevapla

accessman

Aktif Üye
Kullanici Avatari
Aktif Üye
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 
teşekkürler deneyeceğim


@benbendedeilem
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Alt Form Listesindeki İlk Seçeneğin Otomatik Seçilmesi katmer 2 168 05/08/2017, 21:47 katmer
Çözüldü Listboxlara Getirilen Verilerin Tıklamasız Seçilmesi unmercy 5 486 01/06/2017, 01:02 ozanakkaya
Çözüldü İki alandan istenilen değerlerin seçilmesi genco051 3 969 12/02/2014, 03:56 omerdd
Çözüldü Formdaki bazı alanlara göre yazdırılacak raporların onay kutusu ile seçilmesi F.Ç 44 8.104 08/09/2013, 02:47 mehmetdemiral
Çözüldü metin kutusundaki web adresinin webbrowserdan açılmas kadirdursun 5 2.036 21/03/2011, 11:56 life_exciting

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