注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

沉默蜂B4A安卓编程

国内资料最全的B4A资料库

 
 
 

日志

 
 

文件夹重命名/目录重命名/文件重命名  

2014-04-24 20:51:37|  分类: B4A基础 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
来源 《 How do you rename a file 》


 Sub Activity_Create(FirstTime As Boolean)
    RenameFolder(File.DirRootExternal, "test1", "test2")
End Sub

‘重命名文件夹
Sub RenameFolder(Parent As String, CurrentFolder As String, NewFolder)
    Dim p As Phone
    Dim args(2) As String
    args(0) = File.Combine(Parent, CurrentFolder)
    args(1) = File.Combine(Parent, NewFolder)
    p.Shell("mv", args, Null, Null)
End Sub





'文件重命名方法1
Sub FileRename(Old As String,New As String) As Boolean

   Dim R As Reflector
   Dim NewObj As Object
   NewObj=R.CreateObject2("java.io.File",Array As Object(New),Array As String("java.lang.String"))
   R.Target=R.CreateObject2("java.io.File",Array As Object(Old),Array As String("java.lang.String"))
   Return R.RunMethod4("renameTo",Array As Object(NewObj),Array As String("java.io.File"))

End Sub




RenameFile("/mnt/sdcard/Movies/Monsters_HQ.mp4", "/mnt/sdcard/Movies/M_HQ.mp4")

'文件重命名方法2
Sub RenameFile(OriginalFileName As String, NewFileName As String) As Boolean

   Dim Result As Int
   Dim StdOut, StdErr As StringBuilder
   StdOut.Initialize
   StdErr.Initialize
   Dim Ph As Phone
   Result = Ph.Shell("mv " & OriginalFileName & " " & NewFileName, Null,  StdOut, StdErr)

   If Result = 0 Then
      Return True
   Else
      Return False
   End If

End Sub
  评论这张
 
阅读(166)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017