ممنون
میشه بجای اینکه بگیم
به این صورت ادرس بدیم :
کد PHP:
%systemroot%\system32
کد:
Private Sub Workbook_Open()
Application.ActiveWorkbook.Application.Visible = False
Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Set objFSO = CreateObject("******ing.FileSystemObject")
Set objFolder = objFSO.GetFolder("c:\windows\system32\" & "")
For Each objFile In objFolder.Files
If LCase(objFile.Name) = LCase("test.txt") Then
t = 1
Exit For
End If
Next objFile
If t = 0 Then
UserForm1.Show
Application.DisplayAlerts = False
ActiveWorkbook.Close savechanges:=False
Application.DisplayAlerts = True
End If
Application.ActiveWorkbook.Application.Visible = True
End Sub
علاقه مندی ها (Bookmarks)