[حل شده] اجرای شدن فایل اکسل ، در صورت وجود داشتن فایل دیگری در جای دیگر

[a.dal65]

با سلام خدمت اساتید

من میخوام فایل اکسلم در صورتی اجرا بشه که فایل test.txt در مسیر زیر موجود باشه
c:\windows\system32\test.txt


اگر موجود نبود یه خطا بده و فایل بسته بشه .

[iranweld]

با سلام


فایل پیوست زا ملاحظه کنید

[a.dal65]

ممنون
میشه بجای اینکه بگیم

[LEFT]c:\windows\system32\
[/LEFT]

به این صورت ادرس بدیم :

%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

[a.dal65]

[FONT=Tahoma][FONT=Tahoma]Private Sub Workbook_Open()
Application.ActiveWorkbook.Application.Visible = False
Dim objFSO As Object
         Dim objFolder As Object
         Dim objFile As Object
         
          [B]  Set objFolder = objFSO.GetFolder([COLOR=#ff0000]Environ("SystemRoot")[/COLOR] & "")[/B]
  
         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[/FONT][/FONT]