Ağ sunucu dosyası içindeki dosyayı silmek

[dgdizayn]

Merhabalar,
Aşağıdaki kodla D:/ dizini içerisindeki bir veriyi silebiliyorum fakat // sunucu içerisindeki yani ağ bağlantısı olan bir klasör içerisinde bu kod çalışmıyor. Bu konuda yardımcı olabilecek var mıdır.
Teşekkürler.

Sub Sample()
Dim KillFile As String
KillFile = "D:\New folder\100656.xlsx"
Kill KillFile
End Sub

 

[RBozkurt]

KillFile = "\\xxxxxxx\yyyyyyyy\silinecekdosya.rar" gibi uyarlayıp deneyiniz.

 

[dgdizayn]

Merhaba hocam,

İnanın bir çok parametre denedim olmadı. Formlarda baktığımda ağ sunucularında silmek için bu kod kullanılmıyormuş ama onları da denedim yine doğru kodu bulamadım.

 

[Korhan Ayhan]

Belki yetkilerinizle ilgili bir durum olabilir.

Bahsettiğiniz klasörde elle dosya silebiliyormusunuz?

 

[dgdizayn]

Korhan Hocam merhaba,

Manuel ekleme silme vs işlem yapabiliyorum ama bir türlü sildirme yapamadım.

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz. Kodla klasöre erişebiliyormusunuz kontrol ediniz.

YOL bilgisini düzenleyip deneyiniz.

Sub Test()
Dim Yol As String
Yol = "\\Ağ_Adresi\Dosya_Adı"
Msgbox Dir(Yol)
End Sub

 

[dgdizayn]

Kodu denedim ve mesaj olarak dosya adı ve uzantısını mesaj olarak iletti, yetkilerde problem yok gibi sanki.

 

[Korhan Ayhan]

Silmek istediğiniz dosya açık olmamalıdır.

 

[dgdizayn]

Korhan Hocam,

İnanın tüm yolu denedim açık vs de değil. Kill komutu kullandığımda hata vs vermiyor sadece silmiyor. Elle siliyorum hiç hata vs vermiyor.

Kullandığım kodlar;

Ama hiç biri işe yaramadı

Kill
Killfile

    ' Dosyayı sil
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.DeleteFile folderPath & fileName

   ' Dosyayı sil
    Dim fileFullPath As String
    fileFullPath = folderPath & fileName
    If Dir(fileFullPath) <> "" Then
        SetAttr fileFullPath, vbNormal
        Kill fileFullPath
    End If

   ' Dosyayı sil
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Dim fileFullPath As String
    fileFullPath = folderPath & fileName
    If fso.FileExists(fileFullPath) Then
        fso.DeleteFile fileFullPath
    End If

    ' Dosyayı sil
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Dim fileFullPath As String
    fileFullPath = folderPath & fileName
    If fso.FileExists(fileFullPath) Then
        fso.DeleteFile fileFullPath, True
    End If

' Dosyayı sil
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim fileFullPath As String
fileFullPath = "\\sunucu\Dosya.xlsx" ' Silmek istediğiniz dosyanın tam yolunu buraya ekleyin
If fso.FileExists(fileFullPath) Then
    fso.DeleteFile fileFullPath
End If

 

[Korhan Ayhan]

Belki Türkçe karakterlerle ilgili bir durum olabilir.

Adında Türkçe karakter olmayan bir dosyada deneme yaparmısınız.

 

[dgdizayn]

Korhan hocam,

Dosyaların adları tamamen 6 haneli rakamlardan oluşuyor

 

[Korhan Ayhan]

3 farklı yerde aynı dosyayı oluşturdum.

Aşağıdaki kod tüm konumlardaki dosyayı sildi. Bir sorun yaşamadım.

Kendi masaüstüm.
Ağda erişebildiğim farklı bir klasör.
Uzak masaüstü.

Option Explicit

Sub Test()
    Kill "C:\Users\Admin\Desktop\100656.xlsx"
    Kill "\\AAAAAAAA\Budgets & Reports\100656.xlsx"
    Kill "\\BBBBBBBBB\user\Desktop\100656.xlsx"
End Sub

 

[dgdizayn]

Korhan hocam merhaba,

Sanırım o zaman şirket sunucuda bu şekilde bir güvenlik protokolü var. Yine de yardımlarınız için çok teşekkür ederim.