规范CDlinux文件大小写.vbs（解决部分CDlinux找不到安装位置导致启动失败问题）

panet8888

相信不少TX在解开CDlinux的ISO部署到硬盘时都会遇到找不到安装位置而启动失败的问题，这很可能是因为用解压软件不当，解压出来的目录和文件名都是大写的，而CDlinux是区分大小写的，所以就启动不了了。所以高手们都推荐用7z解压。因不想安装7z，所以编了这么个小vbs脚本，可以规范CDlinux文件大小写。
需要的话，就动手吧：）

PS：因DOC部分不影响系统启动，为节省代码，就全改小写了。

规范CDlinux文件大小写.rar (764 Bytes, 下载次数: 190)

2012-5-29 10:12 上传

点击文件名下载附件
下载积分: 无忧币 -2

ones

打包时选择支持大小写就行了，不必都改为小写，你都改为小写，linux可是区分大小写的，可能cdlinux某些sh脚本就找不到那些原文件名为大写的文件了

panet8888

网上下载回来的，都打好包了。需要用7z来解压才会保留正确的大小写，winrar、uiso都不行。

我看过所有目录和文件，只有这么几个地方有大写的：CDlinux,bzImage,zh_TW和doc下几个说明，脚本里都会改成正确的大小写。

l123456789

下载备用,谢谢楼主!

bfgxp

不错，顶楼主。
字数补丁

2012huangyuxuan

Linux对大小写是很严格的，比如程序参数 -E和-e都不一样，文件名Uni和uni都不一样，

panet8888

那么请指出我写的这么脚本有什么不对的地方，我好改正

快雪时晴

记下，遇到CDL不能启动找找这个原因

homyang

很好，老大能否写个通用的，既能改小写，也能改大写的

2012huangyuxuan

您理解错了，我只是说Linux对大小写很严格，没说vbs有问题……

panet8888

并不是全改成小写或大写了，而是按发行版本默认的大小写，部分还是兼有大小写的。

要全改成大或小写也很容易，简单改一下就行。

'----------------------------------------------
'Writed by panet8888,bbs.wuyou.net
Do
z = ""
z = InputBox("1则改为大写，2则改为小写","请选择要改写的类型")
If z="" Then
Wscript.Quit
Elseif z=1 or z=2 Then
Exit Do
End If
Loop

Set fso = CreateObject("Scripting.FilesystemObject")
Const MY_COMPUTER = &H10&
Const WINDOW_HANDLE = 0
Const OPTIONS = 0

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(MY_COMPUTER)
Set objFolderItem = objFolder.Self
strPath = objFolderItem.Path

Set objFolder = objShell.BrowseForFolder _
(WINDOW_HANDLE, "选择CDlinux目录:"&vbNewLine&"▲▲▲▲▲▲▲▲", OPTIONS, strPath)

If objFolder Is Nothing Then Wscript.Quit

Set objFolderItem = objFolder.Self
objSourcePath = objFolderItem.Path

If z=1 Then
Change_U objSourcePath
ElseIf z=2 Then
Change_L objSourcePath
End If
Msgbox("Complete!")


Function Change_U(Path)

Set objSourceFolder=fso.GetFolder(Path)
objSourceFolder.Move(Replace(Path,objSourceFolder.Name,UCase(objSourceFolder.Name)))


Set Files=objSourceFolder.Files

For Each j in Files

j.Move(Replace(j.Path,j.Name,UCase(j.Name)))

Next


'历遍
Set objSourceSubFolder=objSourceFolder.SubFolders
For Each k in objSourceSubFolder
Change_U k.Path
Next

End Function

Function Change_L(Path)

Set objSourceFolder=fso.GetFolder(Path)
objSourceFolder.Move(Replace(Path,objSourceFolder.Name,LCase(objSourceFolder.Name)))


Set Files=objSourceFolder.Files

For Each j in Files

j.Move(Replace(j.Path,j.Name,LCase(j.Name)))

Next


'历遍
Set objSourceSubFolder=objSourceFolder.SubFolders
For Each k in objSourceSubFolder
Change_L k.Path
Next

End Function

js01

这个解本很好，支持，感谢分享。。

萨拉议长

我也是启动的时候找不到安装位置，看看是不是这个原因

jcgametest

谢谢提供这个文件

ggg44830

shishi