~$ ile başlayan excel dosyaları

[schlecht]

Merhaba, aşağıdaki kod ile klasördeki excel dosya isimlerini listeliyorum.

Fakat şöyle bir sorunum var; ~$ ile başlayan dosyalar oluyor bazen ( ne olduklarını tam olarak anlayamadığım, geçici dosyalar sanırım)

bu dosyaları listelemek istemiyorum, yardımlarınızı rica ediyorum.

Teşekkürler.

Sub Düğme3_Tıklat()
Range("A3:A20").ClearContents
'Update 20150831
Dim xFSO As Object
Dim xFolder As Object
Dim xFile As Object
Dim xFiDialog As FileDialog
Dim xPath As String
Dim I As Integer
Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
If xFiDialog.Show = -1 Then
xPath = xFiDialog.SelectedItems(1)
End If
Set xFiDialog = Nothing
If xPath = "" Then Exit Sub
Set xFSO = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFSO.GetFolder(xPath)
For Each xFile In xFolder.Files
I = I + 1
Cells(I + 2, 1) = xFile.Name
Next
MsgBox "İşlem Tamamlandı... ", vbInformation
End Sub

 

[schlecht]

~$ ile başlayan dosyalar gizli gizli dosyaları kod görmese de olur

 

[bmutlu966]

Aşağıdaki şekilde deneyin.

Sub getir()
Range("A3:A20").ClearContents
'Update 20150831
Dim xFSO As Object
Dim xFolder As Object
Dim xFile As Object
Dim xFiDialog As FileDialog
Dim xPath As String
Dim I As Integer
Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
If xFiDialog.Show = -1 Then
xPath = xFiDialog.SelectedItems(1)
End If
Set xFiDialog = Nothing
If xPath = "" Then Exit Sub
Set xFSO = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFSO.GetFolder(xPath)
For Each xFile In xFolder.Files
I = I + 1
If Left(xFile.Name, 2) = "~$" Then GoTo 10
Cells(I + 2, 1) = xFile.Name
10
Next
MsgBox "İşlem Tamamlandı... ", vbInformation
End Sub

 

[schlecht]

sayın bmutlu966, boş bir satır atıyor. Benim isteğim hiç görmesin.

 

[Ömer BARAN]

Merhaba.
Sayın @bmutlu966 'nın verdiği kodda ilgili satırı aşağıdakiyle değiştirerek deneyiniz.

If Left(xFile.Name, 2) = "~$" Then: I = I - 1: GoTo 10

 

[schlecht]

Ömer hocam tam zamanında yetiştiniz. Çok teşeekkür ederim.