作者Xavier (X.avi(er))
看板Visual_Basic
标题[.NET] 更换windows media player的影片
时间Thu May 31 11:05:03 2012
请输入专案类型(网站专案或者应用程式专案)：
应用程式
各位好!
小弟在tabpage上加了一个 windows media player 来播放影片，
然後我想在影片播放到一半时更换下一部影片，
以下是我写的部分程式码：
Me.AxWindowsMediaPlayer2.close()
'找到指定目录下的所有档案并删除()旧
For Each foundFile As String In My.Computer.FileSystem.GetFiles( _
ConfigDirName + "\Media\",
FileIO.SearchOption.SearchAllSubDirectories, "*.*")
My.Computer.FileSystem.DeleteFile(foundFile, _
Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, _
Microsoft.VisualBasic.FileIO.RecycleOption.DeletePermanently)
Next
'将新档案复制到旧档案的资料夹
For Each existFile As String In My.Computer.FileSystem.GetFiles( _
ConfigDirName + "\FtpV\", FileIO.SearchOption.SearchAllSubDirectories, "*.*")
Dim name() As String = existFile.Split("\")
My.Computer.FileSystem.MoveFile(existFile, ConfigDirName + "\Media\" +
name(name.Length - 1), True)
Next
'播放影片
ShowVideo()
问题就是，如果新档案跟旧档案的档名相同，MoveFile()那一行就会发生例外情况"尝试
执行未经授权的作业"，
档名不同的话则是没问题。
请问各位前辈，这是什麽原因，又该如何解决呢? 感谢!
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 220.130.201.154