Setelah diotak atik sFilePath = ThisWorkbook.Path & "\"
maka saya ganti sFilePath = ThisWorkbook.Path & "\"
Data ini berguna untuk setiap kita memindahkan folder maka yang yang di listkan
isi folder itu saja tanpa menuliskan alamat.
Terimakasih atas saran dan masukannya
Salam
Nor Hidayat
--- Pada Sab, 11/2/12, i Haps <hapsari.stlizb...@gmail.com> menulis:
Dari: i Haps <hapsari.stlizb...@gmail.com>
Judul: Fwd: [belajar-excel] List File Aray satu folder tanpa menuliskan alamat
Kepada: "BeExcel" <belajar-excel@yahoogroups.com>
Tanggal: Sabtu, 11 Februari, 2012, 4:36 PM
saya kok hampir yakin UDF ini buatan mas Kid..( ditilik dari:
kerapihan blok, dan konsistensi penamaan Variables / Arguments, type long
didahului dengan l, type string didahulu dengan s dst...)
Benar atau Betul mas Kid..?
Hanya saja, saat ditayangkan mungkin Haps sedang ngantuk.... ( he he)
Bagaimana ya (dlm rangka memenuhi keinginan dayat).. kalau seandainya
If LenB(sPath) = 0 Then
sFilePath = ThisWorkbook.Path & "\"
diganti dengan If LenB(sPath) = 0 Then
sFilePath = CurDir & "\"
kindest regards,- i -
---------- Forwarded message ----------
From: i Haps <hapsari.stlizb...@gmail.com>
Subject: Re: [belajar-excel] List File Aray satu folder tanpa menuliskan alamat
2012/2/11 nor hidayat <dayatshogu...@yahoo.co.id>
> Dear Exceler
> Mohon bantuannya
> Saya pernah buka kiriman group excel mengenai getlist menggunakan array
> dengan scrip sebagai berikut :
>
> Public Function GetFileList( _
> Optional sPath As String = vbNullString, _
> Optional sKriteria As String = vbNullString, _
> Optional lResultAsArray As Long = 0) As Variant
> Dim sFile As String, sFilePath As String, sCari As String
> Dim sList As String, sResult() As String
> Application.Volatile
> If LenB(sPath) = 0 Then
> sFilePath = ThisWorkbook.Path & "\"
> Else
> sFilePath = sPath
> If Right$(sPath, 1) <> "\" Then
> sFilePath = sFilePath & "\"
> End If
> End If
> If LenB(sKriteria) = 0 Then
> sCari = "*"
> Else
> sCari = sKriteria
> End If
> Application.DisplayAlerts = False
> sFile = Dir$(sFilePath & sCari)
> Do While LenB(sFile) <> 0
> sList = sList & sFile & "|"
> sFile = Dir$
> Loop
> If Right$(sList, 1) = "|" Then
> sList = Left(sList, Len(sList) - 1)
> End If
> If lResultAsArray <> 0 Then
> GetFileList = WorksheetFunction.Transpose(Split(sList, "|"))
> Else
> GetFileList = sList
> End If
> Application.DisplayAlerts = True
> End Function
