Dim aDoc As Document Dim docfound As Boolean Dim doclocation As String docfound = False doclocation = "c:\myletter. doc" For Each aDoc In document If InStr(1, aDoc. name, "myletter. doc", 1) Then docfound = True aDoc. Save Exit For End If Next aDoc evet arkadaşlar usta vb. netcilerden satır satır yorum rica ediyorum Ayet var, ayet

Dim aDoc As Document //Doküman tipinde bir degişken tanımlamışsın Dim docfound As Boolean //Boolean tipinde bir degişken tanımlamışsın. Boolean zel bir veri tipidir ve sadece dogru yada yanlış olur Dim doclocation As String //String tipinde bir degişken tanımlamışsın docfound = False //docfound'un tipini yanlış olarak atamışsın doclocation = "c:\myletter. doc" //doclocation'ı belirtmişsin For Each aDoc In document //aDoc içersinde document oldukca dngü çalışıcak If InStr(1, aDoc. name, "myletter. doc", 1) Then //eger myletter. doc isimli bir dosya bulursa docfound = True aDoc. Save Exit For //dngüden çıkıyor End If //if'den çıkıyor Next aDoc //eger for dngüsünden çıkmamışsa bir sonraki nesneye devam ediyor Mühendis kahveyi projeye dnüştüren bir insan evladıdır.