Msgbox nur ausführen, wenn bestimmte Datei in einem Verzeichnis vorhanden

Moin,

ich habe da mal wieder eine Frage an Euch. Über nachfolgenden Codeschnipsel (.vbs Datei) erstelle ich eine msgbox:

msgbox"Konvertierung abgeschlossen!" & vbCrLf & "" & vbCrLf & "Konvertierung abgeschlossen! ",64,"Konvertierung abgeschlossen"  

Wie kann ich bezwecken, dass diese nur ausgegeben wird, wenn eine bestimmte Datei in einem Verzeichnis vorhanden ist?

%userprofile%\Desktop\Test\test.txt

Please also mark the comments that contributed to the solution of the article

Content-Key: 366627

Url: https://administrator.de/contentid/366627

Printed on: April 28, 2024 at 15:04 o'clock

2 Comments

Latest comment

Servus.

Set shell = CreateObject("wscript.Shell")  
Set fso = CreateObject("Scripting.FileSystemObject")  
strPath = shell.ExpandEnvironmentStrings(%userprofile%") & "\Desktop\Test\test.txt"  
If fso.FileExists(strPath) then
    msgbox "Konvertierung abgeschlossen!" & vbCrLf & "" & vbCrLf & "Konvertierung abgeschlossen! ",64,"Konvertierung abgeschlossen"  
End if

Grüße Uwe

Hi,

ich habe das hier gefunden: MSDN - FileExists
Das Beispiel dürfte dir schon alles zeigen was du benötigst.

~Arano

German Question VB for Applications Development

Hotly discussed

Developer diary: Release 6.1admtech

End of availability for classic Teams clientDani