komut ile silmesini istiyorum.

[parsley2]

"D:\Tapiş\Genelgeler\1997-12 hisseli satışlar " burada bulunan bu belgeyi sil komutu ile silmek istiyorum.

ky = Sayfa7.Range("c1").Value
'buraya yeni kod ilavesi kütük içinde silme
ds = "genelgeler"

yol = Application.ThisWorkbook.Path

dosya = Dir(yol & "\" & ky & "\" & ds & "\ rapor.Value")
bu şekilde geldim ama dosyayı boş gösteriyor

 

[parsley2]

"D:\Tapiş\Genelgeler\1997-12 hisseli satışlar " burada bulunan bu belgeyi sil komutu ile silmek istiyorum.

ky = Sayfa7.Range("c1").Value
'buraya yeni kod ilavesi kütük içinde silme
ds = "genelgeler"

yol = Application.ThisWorkbook.Path

dosya = Dir(yol & "\" & ky & "\" & ds & "\ rapor.Value")
bu şekilde geldim ama dosyayı boş gösteriyor

bu şekilde çözdüm.
ky = Sayfa7.Range("c1").Value
'buraya yeni kod ilavesi kütük içinde silme
ds = "genelgeler"
r = rapor.Value
' yol = Application.ThisWorkbook.Path

' dosya = Dir(yol & "\" & ky & "\" & ds & "\") & rapor.Value

yol = Application.ThisWorkbook.Path
dosya = (yol & "\" & ky & "\" & ds & "\") & rapor.Value

Kill dosya

 

[parsley2]

silmeden önce mülga isimli bir klasörün içinde bu dosyayı kaydet edebilir miyim?

yol = Application.ThisWorkbook.Path
dosya = (yol & "\" & ky & "\" & ds & "\") & rapor.Value

saklanacak yer= yol & "\" & mülga


Kill dosya

 

[parsley2]

Aşağıdaki şekilde silmeden önce belgenin bir kopyasını mulga klasörünün altına kopyalıyorum Ancak, dosya açılmıyor. sorun ne acaba???

yol = Application.ThisWorkbook.Path
'sadece genelge ismini seç ve köprüdeki yerini al
Sheets(ky).Range("K" & Y + X & ":K" & Y + X).Select
dosyaadı = Sheets(ky).Range("K" & Y + X & ":K" & Y + X).Value

'dosya = yol & "\" & Selection.Hyperlinks(1).Address
'yeri
dosya = yol & "\" & ds & "\" & dosyaadı

kayıtyeri = yol & "\" & mulga & "\" & dosya

'SaveAs Filename:=yol & "\" & "mulga" & "\" & dosyaadı
ActiveWorkbook.SaveCopyAs Filename:=yol & "\" & "mulga" & "\" & dosyaadı