[belajar-access] Fwd: mengambil path dan nama file

----- Original Message -----
From: "Didin Susiandani" <ds05376@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Thursday, February 04, 2010 5:01 PM
Subject: [belajar-access] Fwd: mengambil path dan nama file

> Dear Pak Mba..
> Setelah berkali-kali ganti key word,
> berikut coding yang saya dapatkan dari hasil penelusuran si mbah
Google...:
>
>
> Private Sub Command2_Click()
> Dim fd As FileDialog
> Set fd = Application.FileDialog(msoFileDialogFilePicker)
> With fd
> .Title = "Goleki file...."
> .Filters.Add "Excel File", "*.xls"
> .FilterIndex = 2
> .AllowMultiSelect = False
> .InitialFileName = CurrentProject.Path
> result = .Show
> If (result <> 0) Then
> Me!txt_path = Trim(.SelectedItems.Item(1))
> End If
> End With
> End Sub
>
> Salam hangat dan jabat erat, ( Nyontek Mode on )
> Didin s
>