Ανανέωση ιστοσελίδας

[maxtor10]

Χρησιμοποιώ τον παρακάτω κωδικα για να διαγραψω ένα αρχειο.

Dim targetfile As String
targetfile = "C:\αρχειο.exe"
Kill(targetfile)
MsgBox("μηνυμα 1")
MsgBox("μηνυμα 2")
End
End Sub

Το ερωτημα μου είναι ….επειδή το αρχειακι που εχω είναι κρυφο μπορει να τροποποιηθει ο κώδικας ετσι ώστε να διαγραψει το αρχειο ΟΤΑΝ ΕΙΝΑΙ ΚΡΥΦΟ

[Tasos]

Καλησπέρα Φώτη!

Δοκίμασε:

Sub DeleteHiddenFile()
    Dim strFilePath$, fso
    strFilePath = "C:\test.txt"
    Set fso = CreateObject("Scripting.FileSystemObject")
    With fso
        If .FileExists(strFilePath) Then
            If .GetFile(strFilePath).Attributes And vbHidden Then
                On Error Resume Next
                .DeleteFile strFilePath
                If Err <> 0 Then
                    MsgBox Err & vbLf & Err.Description
                Else
                    MsgBox "Το αρχείο διαγράφηκε....", vbInformation
                End If
            Else
                'MsgBox "Το αρχείο βρέθηκε αλλά δεν είναι κρυφό....", vbInformation
            End If
        Else
            MsgBox "Δεν βρίσκω το αρχείο....", vbExclamation
        End If
        Set fso = Nothing
    End With
End Sub

Καλή συνέχεια!

Τάσος

[ΤΖΙΜΗΣ]

Τάσο θα ήθελα να ρωτήσω, τον παραπάνω κώδικα που τον τρέχεις;

[Tasos]

Καλημέρα Τζίμη!

Σε οποιαδήποτε λειτουργική μονάδα οποιουδήποτε οποιασδήποτε εφαρμογής υποστηρίζει VBA
ή σε VB6.

Φιλικά

Τάσος

[ΤΖΙΜΗΣ]

Ευχαριστώ Τάσο και καλό μεσημέρι.

[maxtor10]

Καλησπέρα Τάσο. δοκίμασα τον κώδικα που μου έδωσες αλλά μου παρουσιάζει κάποια προβληματάκια.



Imageshack - unled1ww.jpg

Αρχική Δημοσίευση από Tasos

Καλησπέρα Φώτη!

Δοκίμασε:

Sub DeleteHiddenFile()
    Dim strFilePath$, fso
    strFilePath = "C:\test.txt"
    Set fso = CreateObject("Scripting.FileSystemObject")
    With fso
        If .FileExists(strFilePath) Then
            If .GetFile(strFilePath).Attributes And vbHidden Then
                On Error Resume Next
                .DeleteFile strFilePath
                If Err <> 0 Then
                    MsgBox Err & vbLf & Err.Description
                Else
                    MsgBox "Το αρχείο διαγράφηκε....", vbInformation
                End If
            Else
                'MsgBox "Το αρχείο βρέθηκε αλλά δεν είναι κρυφό....", vbInformation
            End If
        Else
            MsgBox "Δεν βρίσκω το αρχείο....", vbExclamation
        End If
        Set fso = Nothing
    End With
End Sub

Καλή συνέχεια!

Τάσος

[Tasos]

Καλησπέρα Φώτη!
Φυσικά και δεν δουλεύει αφού είναι κώδικας για Visual Basic όχι VB.Net (άλλος κόσμος)!!
Για VB.Net δοκίμασε:

Στην κορυφή της λειτουργικής μονάδας που θα φιλοξενήσει τον παρακάτω κώδικα γράψε:

Imports System.IO

 Private Sub DeleteOnlyHiddenFile()
        Dim strFilePath As String = "c:\test.xlsx"
        If File.Exists(strFilePath) Then
            Dim attributes As FileAttributes = File.GetAttributes(strFilePath)
            If (attributes And FileAttributes.Hidden) = FileAttributes.Hidden Then
                Try
                    File.Delete(strFilePath)
                    MsgBox("Το αρχείο διαγράφηκε....", vbInformation)
                Catch ex As Exception
                    MsgBox(ex.Message)
                End Try
            Else
                MsgBox("Το αρχείο βρέθηκε αλλά δεν είναι κρυφό....", vbInformation)
            End If
        Else
            MsgBox("Δεν βρίσκω το αρχείο....", vbExclamation)
        End If
    End Sub

Καλή συνέχεια!

Φιλικά

Τάσος

[maxtor10]

Τάσο άψογος
ευχαριστώ