C:\Documents and Settings\User Name\My Documents\My Videos", "First Run", user) Video_dir = InputBox("Please input the directory where your Videos are kept." & vbcrlf & vbNewLine & "E.g. If video_dir = "%VLC_SHUTDOWN_VIDEOS_DIRECTORY%" Then 'If this if first run, we must save where the default video directory is Video_dir = oShell.ExpandEnvironmentStrings("%VLC_SHUTDOWN_VIDEOS_DIRECTORY%")
User = oShell.ExpandEnvironmentStrings("%USERPROFILE%") InputError("File " & CHR(34) & FileInfo.Name & CHR(34) & " has an unrecognised file type - Must be of type. If InStr(FileInfo.Type, ".avi") or InStr(FileInfo.Type, ".mp4") or InStr(FileInfo.Type, ".mov") or InStr(FileInfo.Type, ".wmv") or InStr(FileInfo.Type, ".3gp") Thenįiles = files & " " & CHR(34) & FileData & CHR(34) Set oShell = CreateObject("WScript.Shell") Set FSO = CreateObject("Scripting.FileSystemObject") Set file = CreateObject("UserAccounts.CommonDialog")įile.Filter = "Video Files (avi, mp4, mov, wmv, 3gp)|*.avi *.mp4 *.mov *.wmv *.3gp " Dim oShell, FSO, FileData, vlc_path, video_dir, user, programsįorce_shutdown = FALSE 'Set to true to force quit all other applications set to false otherwise
0 kommentar(er)
