Re:Re: [belajar-access] combobox dengan sumber list shared folder

dear deden,
coba nanti jam istrahat tak utak-atiknya ya ....

aksan kurdin

--- In belajar-access@yahoogroups.com, easy goin <soeasy_goin@...> wrote:
>
> dear pak Aksan,
> terima kasih pak, combo box sudah bisa menampilkan isi folder lokal,
>
> tapi masih belum bisa untuk menampilkan isi didalam folder yang disharing dinetwork,
> misal "\\pcku\sharing\"
>
> saya coba modif jadi strItem = Dir("\\pcku\sharing\"), muncul pesan error "run-time error '52' : bad file name or number.
>
> mohon bantuannya untuk rekan-rekan sekalian.
>
> terima kasih atas bantuannya
>
>
> Rgds,
> deden
>
> -----------------------------------
>
> Aksan Kurdin <aksan.kurdin@...>
> Sent by: belajar-access@yahoogroups.com
> 15/09/10 18:03
> Please respond to belajar-access
> To: belajar-access@yahoogroups.com
> cc:
> Subject: Re: [belajar-access] combobox dengan sumber list shared folder
>
> Private Sub Form_Open(Cancel As Integer)
> Dim strValue As String
> Dim strItem As String
> With Me.Combo0
> .RowSourceType = "Value List"
> strItem = Dir("c:\")
> If strItem <> "" Then
> Do While strItem <> ""
> strValue = strValue & strItem & ";"
> strItem = Dir
> Loop
> End If
>
> .RowSource = strValue
>
> End With
> End Sub
>