Dear all bantuin donk

Rubah pilihan direktori ya di Drive d jadi membaca Cell Excel

Sub tampilkanamafile()
Dim folder as string
Dim x as long:x =2

Folder = diri(":d\data\" & "*txt")

Do while Len(folder) >0
Sheet1.range("a" & x)
X= x+1


Folder = diri ()

Loop

End sub